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IMAGINE!!! MDI'S 21 MEGABYTE HARD DISK CARD 
simply plugs into your system and is ready to runt! | 
The hord disk cord olso contoins o... ——— 

“FREE SCSI PORT": Tandy 1000 





A SCSI port which allows you to tie (doisu chain) ар Board | 


up to seven external (peripheral) devices to your 


ter. 
TITAN INCLUDED FREE 


Direct/Assist 54995 


R/Assist $4995 Now м 
Light Speed 57995 UR 
SCSI Board | 51900 Q А 
gm Ne 
ORDER LINE 800-228-0891 fam - 
305-677-8333 O ШЕЕ 





1 YEAR WARRANTY, 30 DAY MONEY BACK GUARANTEE 


lh gl — iste Desi Micro Design International, Inc. 


Agar University Boulevard, Winter Park, Florida 32792 305-677-8333 telex 332559 MDII ORLUD 


Tandy 200 24K 5649 
Model 600 32K $1269 
Model 100 24K $425 


DMP-130 $269 


Tandy 3000 $1969 
Tandy 3000 HD $2699 


Color Computer II 
у//64К Ext. Basic $165 


Tandy 1000 $685 
Tandy 1000 HD $1539 
Tandy 1200 HD $1599 


DMP-105 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128К 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Тапау 3000 1 Drive 512K 
Tandy 3000 HD 20 Meg. 512K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable 229.00 
Silver Reed EXP-550P Daisy Wheel229.00 
Star 56-10 245.00 
Star 56-15 410.00 
Star 50-10 365.00 
Panasonic P-1094 259.00 
Panasonic P-1092 339.00 
Toshiba 1340 439.00 
Okidata 192 375.00 
Epson LX-80 245.00 
Epson FX-85 369.00 
Epson Н5-80 Portable Ink Jet 339.00 


685.00 
1539.00 
1599.00 
1969.00 
2699.00 

889.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (inc. 428K & DMA)499.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 259.00 
PBJ Multi-Function Board (256K) 279.00 
PBJ Multi-Function Board (512K) 299.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)ó9.00 
300 Baud Modem Board 129.00 
1200 Baud Modem Board 249.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 


Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 

Tandy CM-2 RGB Color Monitor 
Tandy CM-4 RGB Color Monitor 
Tandy VM-3 ТТІ Green Monitor 179.00 
Tandy 1200 Text Monitor Adapt. 219.00 
Tandy 1200 Color/Graphics Adapt240.00 


429.00 
379.00 
249.00 


CALL TOLL FREE 
1-800-343-8124 


• LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 
SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem |! 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429,00 
Hayes Smartmodem 1200B 415.00 
FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10рк) 9.95 
Verbatim SSDD Plastic Box (10рк) 24.95 
Verbatim DDDD Plastic Box (10рк) 29.95 
Precision SSDD Diskettes (10pk) 15.95 
Precision DDDD Diskettes (40pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
NEC 256K Ram Chips (set of 8) 69.00 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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Check out the software that completes their systems 


Tandy MS-DOS Sottware Comparison Chart 
f * Tw - 
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CHARACTERISTICS: 


Menu driven 

































Allows user to create integrated programmer 

business systems required YES 2l 
Developed systems and data can be 

moved to multi-user environments YES Й 
Professional support available E 
from the software's authors YES 4 





CAPACITIES: 
Fields per record 100 







































Characters per record 1679 1000 4608 М 
Records per file 1300 65535 
Indexes per file т ЕН 
Number of digits per numeric field 10 | 24 М 
Number of files usable concurrently 2 | 1 MW 
Files span multiple drives no 
FEATURES: 

custom screen layouts n no YES 










Full-screen facility for creating 
custom report layouts 

Built-in field types 

(error checking) 





















programmer 
required 
programmer 
required 
programmer 
required 


possible 


programmer 

"n required 
programmer 

по required 


User-defined field types 















Conditional math 










User-defined menus 


Change file layout without 
losing existing data 
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Data protection 





Password security 
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— filePro® 


The new Tandy computers 
can really speed things up. If 
you don't let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile9. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 

filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store's Express 
Order Software service. 


To order, call 

(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 


including ІВМ PC, ІВМ PC-XT, and 
NCR Decision Mate. 
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Riding the Leading Edge 
of a Growing Trend 
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Н. does it feel to Бе part of a 


growing trend? 

If you're reading this magazine be- 
cause you own one of Tandy's MS-DOS 
or portable computers, you're part of 
what appears to be the hottest trend in 
personal computing in the United 
States today. It is not just that you 
bought a computer — but that you 
bought a Tandy computer. Let's look at 
a few pieces of information (some of 
them from "sources," others from fac- 
tual information): 

The Consumers Digest Hall of Fame 
Award for meritorious service has been 
conferred on Tandy. What was it for? 

Consumers Digest says it recognizes 
Tandy for *marketing its line of techno- 
logically advanced Tandy computers at 
competitive prices while maintaining 
one of the most extensive dealer/ service 
networks in the country." 

Well, we knew that, didn't we? But it 
certainly is nice that Tandy finally gets 
some recognition from someone as 
respectable as Consumers Digest. 

To prove you are part of a really 
growing trend, all you have to do is to 
look at Tandy's reports to its stock- 
holders. While many computer com- 
panies were reporting only so-so holi- 
day seasons (or losses!), Tandy, overall, 
racked up its first-ever half-billion 
dollar month during December. That 
means its fourth quarter closed with its 
first $1 billion quarter in history. 

How do I know this? Well, I have 
some Tandy stock. Sure am glad, too! 

And you're really in the trend if you 
bought a Tandy MS-DOS computer! 
The way we hear it, although not offi- 
cially, Tandy sold more than double the 
number of 1000s alone than IBM sold 
PCs. Tandy's 1000 sales also doubled 
Compaq's production, too, we hear. 

And the newest computer from 
Tandy, the 3000? I understand that it is 
selling something like five times better 
than Tandy projected, while the 1200 is 


also said to be in healthy shape. 

So, for that matter, is the Color 
Computer. Which also makes us glad 
here since we publish a Color Computer 
magazine, THE RAINBOW, as well. 

What does all this mean to you? It 
means that more and more software and 
hardware people are paying more and 
more attention to the Tandy area. It 
means simple things like more attention 
to packaging drivers for your Tandy 
printers and modems and complicated 
ones like targeting sales and service 
efforts more toward the machine you 
own. These are important considera- 
tions. And we'll all reap the benefits of 
it. 

When the University of Louisville 
here hired a big-name coach, Howard 
Schnellenberger, to run its football 
program, the school came up with the 
theme “Be Part of It!” 

Aren’t you glad you and your Tandy 
computer are “Part of It,” too? 


Despite being afflicted with the worst 
rainstorm in five years, PCMfest was a 
good experience in Palo Alto. A good 
number of firms had booths, the semi- 
nars were generally well-attended and 
there were a bunch of people on hand. 
Total for the whole show — PCMfest 
and RAINBOWfest — was a bit over 
7,000. 

What is traditionally our biggest 
RAINBOWfest (and I assume will be 
our biggest PCMfest, too) comes May 
23-25 in Chicago. A registration form is 
located in this issue of PCM. 

I hope you will not only attend, but 
will make your plans early. The hotel 
where the show is held, the Hyatt- 
Regency in Schaumburg, traditionally 
sells out for this one. So make your 
plans early and be with us. 

And be even more a Part of It! 


— Lonnie Falk 


Tandy 1000 Memory Сага 


another high quality product from Southwestern Digital 


Why spend a bundle on a Tandy board? 
Our Board is only 


Features: 
e 512К of Memory 
DMA 
Expansion Port 
Gold Edge Cards 
Easy Installation 
30 Day Satisfaction Guarantee Policy 


The Southwestern Digital Memory Expansion Plus Card has all 
the features of the Radio Shack Board but the price; you save 
almost $400. Features include 512K installed, burned in, and tested 
to give you a total of 640K, a DMA circut that is fully tested for hard 
drive operation, and an expansion port that will work with any of the 
Radio Shack Memory Plus Expansion Card options. High quality 
manufacturing, and features such as gold plated card edges make 
this the logical choice in upgrading your memory. 





ne Order Line 

rdering Information 

Call us or mail your order in. We accept Visa, Mastercard, and Certified Funds for quickest ship- 1- 713-480 -3296 

ment. Personal checks аге held for clearance. Add $5. for ground shipment, or $10 for UPS 2nd 2541 

day air service. All products carry а 30 day satisfaction guarantee, and are warrantied for a full Southwestern Digital 
year. 2515 West Main Street, Suite #337 


Houston, Texas 77098 





ІШ Letters to PCM 


Mystery Socket 


Editor: 

1 have been a reader of THE RAINBOW [for 
the Tandy Color Computer] for several 
years. When I purchased a Tandy 1000, I 
started looking for magazines to go with it. 
I was most pleased to find PCM. 

I would, however, like to see more hard- 
ware oriented articles similar to “Turn of the 
Screw” and others in THE RAINBOW. This 
type of article would be a nice complement 
and would provide knowledge of the 1000 
that seems to be non-existent. 

As a case in point, when I started looking 
at the 1000 I inspected several at the local 
Radio Shack. The unit I purchased is listed 
as a 25-1000A. This suffix usually signifies 
achange in the product. Indeed, my machine 
has a 40-pin socket close to the 8088. This 
socket is non-existent on earlier 1000s I have 
inspected. I have read every article on the 
1000 that I could find and never seen any 
mention of this socket. I have ordered the 
Technical Reference Manual, but I don't 
really think it will apply to the newer board. 

I am wondering if you can offer any 
clarification of this matter. Could it even be 
a socket for an 8087 co-processor? 

How about an article on using MS-DOS 
3.1 on the 1000? This particular operating 
system seems to offer substantial improve- 
ments over the 2.1 series and is supposedly 
compatible. However, the $64,000 question 
is does it work? 

Lionel P. Tercier 
Bonnyville, Alberta 


Editor's Note: It seems many of our 
contributors concentrate on software 
rather than hardware (hint, hint, 
hardware hackers, we need to hear 
from you). If you enjoy hardware 
articles, you'll find “Supercharging 
your Tandy 1000" in this issue very 
interesting. It shows how to increase 
your computer's speed by replacing 
the CPU with an inexpensive emula- 
tor chip. 

Good guess on the mysterious 
empty socket in the new Tandy 1000s! 
It is, in fact, intended for the optional 
8087 math co-processor. No official 
word from Tandy as yet on if and how 
owners of older machines can upgrade 
their machines to support the 8087. 


A Better Blackboard 


Editor: 

I would like to compliment the staff of 
PCM for an excellent magazine. It is one of 
the only magazines that offers truly useful, 
productive and fun programs from which 
readers and amateur programmers can use 
and learn. 

In Leonard Hyre's *The Electric Black- 
board" (February 1986), there is a slight 
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problem: SCREEN 6 in Line 1940 will not 
allow COLOR 12,9 to be used. 

After running the program for my daugh- 
ter a few times, I got annoyed with the idea 
of continually seeding the randomizer. I then 
borrowed a small addition from Learning 
Basic for the Tandy 1000/2000 by David A. 
Lien. I added lines 3000 and 3010 as follows: 

3000 RANDOMIZE VAL(RIGHTS 

(TIMES,2)) 

3010 RETURN 

І also changed Lines 320 and 640 to GOSUB 
3000. This way, the randomizer is seeded 
automatically by the computer’s timer every 
time it is run. 

John Sylvestre 
Longueuil, Quebec 


Update on Upgrading 


Editor: 

After reading Brian Alsop's article in the 
February 1986 issue (“Upgrading Your 
Tandy 1000"), I was so excited that I ran out 
and ordered a PBJ Board to replace my old 
Tandy memory board and a Qubie 20MB 
hard disk. Following Mr. Alsop's instruc- 
tions, I eagerly installed both the memory 
board and the hard disk with little difficulty. 

Unfortunately, that's when the troubles 
began. The hard disk formatted perfectly, 
however, every time I tried to read or write 
data to the disk, it would either hang up the 
computer or cause strange read/write er- 
rors. I also could not get the computer to 
boot directly from the hard disk. 

After a few calls to Qubie, I discovered 
that Mr. Alsop didn't mention one impor- 
tant factor in his article: the BIOS. As I have 
an older Tandy 1000, it contains the older 
version of the BIOS (Version 01.00.00). It 
seems there is a bug in the old BIOS that 
causes the computer not to function cor- 
rectly with a Western Digital hard disk 
controller board. 

I dropped my machine off at Radio Shack 
and got a new BIOS chip installed (Version 
01.01.00). I reinstalled the hard disk, and 
found that all my previous problems had 
disappeared! 

The morale of the story: IF YOU ARE 
THINKING ABOUT UPGRADING TO A 
HARD DISK, MAKE SURE YOUR BIOS 
IS UPDATED TO VERSION 01.01.00! It 
only takes about a week to have Tandy 
install the chips, and it is relatively inexpen- 
sive — about $25. It will save you a lot of 
grief. 

Qubie is also using a new EPROM chip 
for their Tandy 1000 controller boards. The 
old chips had *Tandy 1000" on the label; the 
new ones say “40-20007.” 

The hard disk has performed flawlessly, 
and is such a boon to computer productivity 
that it is almost like a miracle. Once you go 
to a hard disk you can never go to back to 
the floppy shuffle! 

Thomas B. Simpson 
Kalamazoo, MI 


Powerful PCM 


Editor: 

Amidst the uncertainties of buying a 
personal and/or small business computer, I 
spent a great deal of time searching for the 
machine best suited to my needs and my 
financial limitations. I purchased a Tandy 
1000 and have been unable to use it to its 
maximum. I find it quite powerful and more 
than able to satisfy my needs. 

That brings me to PCM. I find it difficult 
to believe that each page is more informative 
than the last. Without a doubt, PCM is as 
powerful as my machine with respect to the 
fact it does for me just what I want it to do. 
Not one page has gone to waste. Other 


magazines twice the size cannot compare ` 


nor do they offer us the valuable informa- 
tion that you do. 
Keep up the excellent work. 
Stephen J. Devan 
Methuen, MA 


Praise for PBJ 


Editor: 

This is a letter of appreciation for the great 
and kind service given me by PBJ of Pater- 
son, New Jersey. 1 bought an MFB-1000 
memory expansion board and was uneasy 
about one of its features. In the course of 
discussing it with them by phone, they 
offered to let me bring the board in (they are 
close by). 

We got friendly *VIP" attention and a 
complete rundown on the operation and 
features of this fine board. A user so often 
gets a rough time from the manufacturer 
that I feel it is important to emphasize a 
quality company like PBJ and their fine 
staff. 

Га like to pass along this tip on using the 
DB-25 port of the MFB-1000 in the RS-232 
mode. These connections work with the 
Tandy DMP-110 printer: 


DMP-100 DB-25 
1 No connection 
2 6 Status 
3 7 Ground 
4 2 Data 


Jumper pins 4 and 8 at the DB-25 


То set up the printer, at the 8> prompt 
type: 
MODE LPT1:=COM2: 
MODE COM2: Baud rate, parity, word 
length, stop bits 
I use MODE COM2:600,N,8,1, though 
1200 Baud is also available if the printer 
supports both. 
R.E. Franklin 
Westfield, NJ 





Each and every month, PCM 
offers an assortment of pro- 
grams for the home and office — 
utilities, business applications, 
games and more — all for the 
price of typing in the listings. 


If you're a person on the move, 
and too busy to spend time typ- 
ing lengthy listings, then PCM has 
just what you need — 

PCM ON DISK. 


PCM ON DISK 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4492 


PCM ON DISK provides each 
issue's MS-DOS programs ready 
to load and run with only a few 
keystrokes! 


AS AN ADDED BONUS, PCM ON 
DISK will include PCM's portable 
computer programs, which may 
be downloaded to portables for 
those readers who have both an 
MS-DOS machine and one of 
Tandy's portable computers. 








That means you get a disk 
each month for a year, 
containing all programs listed 
in that month's issue, for an 
average cost of only $8.25!* 
We think it’s worth your time to 
subscribe. 


*Disks for individual issues (beginning 
this month) may be ordered for only 
$12 each. 





О Full Year's Subscription (specify starting month) 


П Single Volume (specify month(s) & year) 


Name 

Address 

City 

Payment Enclosed [0 
Charge: 
My Accounts 


Signature 


State 


ZIP 


Visa C) MasterCard O American Express O 


Card Exp. Date 


"Subscriptions to PCM ON DISK аге $99 a year in the United States. Canadian rate U.S. $115, All other countries 
U.S. $130; PCM ON DISK single copy rate is: $12 within the U.S.; U.S. $14, Canadian rate; U.S. $16, all other 
countries. Kentucky residents add 596 sales tax. All subscriptions begin with the current issue unless otherwise 
specified. Please allow 5 to 6 weeks for first copy. PCM ON DISK is not a stand-alone product. PCM magazine 
is a separate purchase. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 
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Keep track of income and expenses 
on rental property — or just about 
any profit-making venture 


Landlord's 
Helper 


By J.D. Ray 


program originally developed for the 

Tandy Color Computer. Since that pro- 
gram appeared in THE RAINBOW magazine, I have 
received countless inquiries about it, and several 
requesting modification for the MS-DOS compu- 
ters. Well, here it is! The program accomplishes 
several things: 

ФА file program for important information 
such as renter's name, rental date, deposits, 
phone numbers and mortgage information. 

€A financial journal to record all financial 
transactions each month. 

ФА financial summary of income and expenses 
on a monthly basis. 

ФА financial summary of individual property 
transactions on a monthly basis. 

ФА year-to-date summary on income and 
expenses. 

eSufficient screen prompts to prevent the need 
for keeping paper notes and instructions. 

This article will give very basic and simple 

instructions for operating the program. The 


Í andlord's Helper is a rental management 


James Ray is a minister at the Cooper River 
Baptist Church in North Charleston, South 
Carolina. Computer programming is a hobby 
along with woodworking and water skiing. James 
has also written several programs for the Tandy 
Color Computer. 
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program is somewhat long, so these 
comments will be brief, but sufficient to 
use the program. 


To Operate the Program 

Assuming the program has been 
keyed in, load BASIC from your system 
disk and load LANDLORD. In order to use 
the program, you must: 

1) Have LANDLORD loaded into mem- 
ory from any drive (LORD “4:1 АМО 
LORD" where d=drive letter). 

2) Have a formatted file disk, or use 
main program disk, in Drive A for your 
working files. 

Step one: From the main menu, select 
Item 4 to set up accounts. The purpose 
of this routine is to organize your 
property and accounts. Give this careful 





thought as this determines how the 
information will be organized. You can 
make corrections, additions and dele- 
tions, but itis betterto haveit right from 
the beginning. Organize your property 
accounts by assigning them a code. The 
code can be letters or numbers or both. 
The codes can be arranged by geograph- 
ic location, property acquisition or 
value. For example, an apartment com- 
plex might be assigned Code A with the 
individual units by number: A01, A02, 
etc. 

Income and expense accounts also 
need to be entered. You need to list these 
accounts after determining all of the 
possibilities. Consider every possible 
income item and every conceivable 
expense item. You are limited to 22 


accounts each. The reason for the 
limitation is not memory or program 
design, but simply screen capacity. 
When developing the program, I opted 
for the program to prompt you with all 
accounts when needed. It would not 
hurt to set up several miscellaneous 
categories that can be changed later. 

Step two: After setting up property, 
income and expense accounts, you are 
ready to enter specific property infor- 
mation. Select main menu Item 1. 
Follow the menu prompts to enter view 
or change data. To enter data, the screen 
prompts you for information. If any 
information does not apply to your 
situation, leave it blank by pressing 
ENTER. See Figure 1 for a screen sum- 
mary. 


Figure 1 Rental Property Information 
Property Code No: E03 Update: 11-21-1985 
Address: 1504 White Circle Record # 8 
City: Charleston 
State: SC 
Zip Code: 29407 
Renter's Name: Harold Goins 
Rental Date: 10/01/85 
Phone (XXX-XXXX): 322-3211 
Deposit Paid: $300.00 
Monthly Rent: $300.00 
Purchase Date: 01/01/85 
Purchase Price: $24,000.00 
Lien #1: Bankers Trust Date Due (XX): 10 Monthly Mortgage: $225.00 
Lien #2: Date Due (XX): Monthly Mortgage: $0.00 


[N]ext, [P]revious, [M]enu or [C]hange 






















Figure 2 Transactions for October Prop. Мо.: All 
Date Tr # Category Received/Paid To: For: Prop: Amount 
10/01 1001 Rent Joel Hanks October Rent А01 $250.00 
10/01 1002 Rent Mary Hobbs October Rent A02 $300.00 
10/03 0001 Utilities SCE&G October Power Bill А01 -$67.00 
10/10 1003 Deposits Joel Hanks Rent Deposit AD1 $300.00 
10/15 0004 Mortgage First Federal Oct. Mortgage A01 -$195.00 
10/10 1004 Rent Steven Kingston October Rent | C01 $350.00 
10/15 0003 Plumbing Johnny's Plumbing Water Line Repair A02 -$46.00 


Ending Balance: $1139.65 
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Figure 3 







Year to Date Зитттагу ~ November 
10-51-1985 
INCOME: 
Rent $2,100.00 
Refunds 50,00 
Interest $0.00 
Late Fees $0.00 
Damages $0.00 
Deposits 5500.00 
Misc; $0.00 
Ехбга/1 $0.00 
Extra’ 2 60:00 
TOTAL INCOME: -5745.00 
EXPENSES: 
Mortgage 2$745.00 
Utilities -$67.00 
Plumbing 2646.00 
Carpentry $0.00 
Furniture $0.00 
Yard Work $0.00 
Gen. Main, $0.00 
News. Ads. 60:00 
Рћопе 50.00 
Misc: $0.00 
Extras $0.00 
Extra'2 $0.00 
Extra 2 $0.00 





Extra 4 





TOTAL: EXPENSES: 


BALANCE: $1,542. 





The listing: 


Financial Data 

Step three: To enter monthly transac- 
tions, select main menu Item 2. If you 
maintain a separate banking account 
for the rental property, simply enter 
these transactions from your check- 
book and receipts. If you manage prop- 
erty through your personal bank ac- 
count, simply go through your 
checkbook and enter those transactions 
that apply to your rental property. You 
can also list cash transactions. 

After entering your transactions for 
the month, various reports can be 
printed based on these transactions. 
Transaction journals for the month can 
be printed by property location, or all 
transactions can be printed (to screen or 
printer). See Figure 2. 

Step four: For monthly or year-to- 
date summaries, select main menu Item 
3. This compiles the information listed 
in the transaction journal into useful 
summaries. Any of the following can be 
compiled to your screen or printer: 


10 “хе LANDLORD" S: HELPER. жх 


12 'GOPYRIGHT- James Кау 





-------- 

ФАп income summary listing all or 
selected income categories. 

9 An expense summary listing all or 
selected expense categories. 

ФА monthly summary of income and 
expenses. 

ФА year-to-date summary of income 
and expenses (Figure 3). 











I hope you enjoy using Landlord's 
Helper. The program has many appli- 
cations and is not limited to rental 
property. It can be used to handle 
financial information for any small 
business. I will be glad to assist anyone 
with specific applications for this pro- 
gram, and I am always interested if the 
program does not work as printed. Any 
input you can give that enhances the 
program would be appreciated and 
shared with interested persons. Feel free 
to contact me at 5065 France Avenue, 
North Charleston, SC 29406. Please 
enclose an SASE. Г] 





l4 CLEAR 9999:DIM COD$(25),ADR$(25),NAMS (25), EX$(23) , IN$(25) ,MIHS (12) , BAL(69) , BZ 
(59).,BL(59) , 11$ (69) ,D(25) ,M(25),0(25) ,Q1(25) , PRL(25) , IM$ (25), PZS (25) 
16 КОД" ОДЕ ,### ЊЕ" TKK SS" SSHHHER HEP KIS =" ene" 


18 FOR ZZ- l TO 12 


: READ MTHS(ZZ): NEXT ZZ 


20 С(1)-2:6(2)510:С(3)-6:КЕУ OFF 


22 РАТА January,February, March , April); 


;,October,November;December 
GOTO 940 


May 


June July , August, September 


CLS: COLOR C(L): LOCATE 7,;29,0:PRINT"RENTAL PROPERTY MANAGEMENT" 


LOCATE 
LOCATE 


LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 


IF АТ9<"0" OR Атб>"5" THEN 42 
ON VAL(AT$) GOTO 742,270,406,50:5ТОР 


9,34: РЕЛКМТ" (60) by James Ray":FOR 2-1 TO 1909: NEXT Z 
12,36:PRINT"MAIN MENU:":COLOR C(2) 
13,30:PRINT"l1) Property Information" 
14,30:PRINT"2) List Monthly. Transactions" 
15,39:PRINT"3) Income/Expense Summary" 
16,30: РЕТМТ"4) Set-Up Accounts": LOCATE 17,30:PRINT'"5) END Program" 
19,30, 0: PRINT" (1,2, 3, а; OR 5)":GOSUB 900 


"СЭСО deese ye IK IK EK о IK IR I IEEE EK EEE ION HIE TO dece ЭСЕ IER IER КОСЕ NYC TON TON 


"ЖЖЖ SET UP ACCOUNTS www 


Vsesesese sede se yes Sede sese e ye e see dede e se de ee e e e ee ee esee eye esteso ye ye dee ede fede deje vete dee ee зар ye dede 


CLS: COLOR C(1):LOCATE 7,390:PRINT"FILE MAINTENANCE PROGRAM" COLOR. C(2) 
LOCATE 12,30;PRINT"Selections: ":LOCATE 13,390:PRINT'"1) Property Codes" 
608 LOCATE: 14,30:РВІКТ"2) Expense Accounts":LOCATE 15,3@:PRINT"3): Income Accounts 
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":ТОСАТЕ 16,39:PRINT"4) END Job" 
62 LOCATE 18,30:РЕТМТ"(1, 2, 3 or 4)":GOSUB 900 
64 ON VAL(AT$) GOTO 66,144, 292,994 
"PROPERTY CODES 
CLS:COLOR C(1):LOCATE 7,35:PRINT"Property Codes":COLOR C(2) 
GOSUB 159:0N VAL(AT$) GOSUB 72,94,106,200:СОТО 68 
GOSUB 992:X-0:CLS:GOSUB 966. 
CLS:COLOR C(1):LOCATE 24,22:PRINT" Press «ENTER» When Finished":COLOR C(2) 
X=X+1:L=L+1:1F L>23 THEN 1-1. 
LOCATE L,1:COLOR C(1):PRINT"Property Code: ";:COLOR C(2):LINE INPUT CODS (X) 
IF COD$(X)="" THEN CLOSE#1:GOTO 56 
IF LEN(COD$(X))>3 THEN PRINT" TOO LONG!! REDO ":GOTO 78 
LOCATE L,2@:COLOR C(1):PRINT" Address: ";:COLOR C(2):LINE INPUT ADRS$(X) 
ТЕ LEN(ADRS$(X))>25 THEN PRINT" TOO LONG!! REDO ":GOTO 84 
LOCATE L,55:COLOR C(1):PRINT" Renter: ";:COLOR C(2):LINE INPUT МАМ5(Х) 
IF LEN(NAMS$(X))229 THEN PRINT" TOO LONG!! REDO ":GOTO 88 
WRITE #1, CD$(X),ADR$(X),NAMS$(X):GOTO 76 
X-9:L-2:CLS:LOCATE 1,34:COLOR C(1):PRINT"PROPERTY CODES":GOSUB 968 
IF EOF(1)--1 THEN CLOSE#1:GOSUB 900:С0ТО 68 
X=X+1:L=L+1:LOCATE 2,1:COLOR C(1):PRINT" Prop. Code Renter's Name 
Address":COLOR C(2) 
100 INPUT#1, COD$(X) , ADR$(X) ,NAM$ (X) 
122 LOCATE L,11:PRINT COD$(X):LOCATE L, 22: PRINT NAMS (X): LOCATE L,43:PRINT ADR$(X 
) 
194 GOTO 96 
106 X-g:CLS:GOSUB 968:GOSUB 970 
198 IF EOF(1)=-1 THEN 136 
110 LOCATE 2,1:COLOR C(1):PRINT"Prop. Code Renter's Name Address":COLOR 
C(2) | 
112 X=X+1:; INPUT#1 ,COD$ (X) ,ADR$ (X) ,NAM$ (X) 
114 LOCATE 3,3:PRINT SPACES(4):LOCATE 3,14:PRINT SPACE$(21):LOCATE 3,35:PRINT SP 
АСЕ5(25 
acm 3,3:COLOR C(2):PRINT CODS(X):LOCATE 3,14:PRINT NAMS(X):LOCATE 3,35:PR 
INT ADRS(X) 
118 GOSUB 244:0N VAL(Q2$) GOSUB 129,198,134:GOTO 134 
120 CD$=COD$(X):LOCATE 3,3:INPUT CODS$(X):IF COD$(X)="" THEN COD$(X)=CD$:LOCATE 2 
9,10:PRINT SPACES(25) 
122 IF CODS$(X)-"" THEN CLOSE#1:GOTO 56 
124 IF LEN(COD$(X))>3 THEN LOCATE 29,19:COLOR C(3):PRINT"TOO LONG!! REDO ":COLOR 
C(2):GOTO 120 
126 NMS=NAM$(X):LOCATE 3,14:INPUT NAMS$(X):IF NAM$(X)="" THEN NAM$(X)=NM$ : LOCATE 
20,10:РЕТМТ SPACES (2@) 
128 IF ІЕМ(АрВ9(Х))>20 THEN LOCATE 29,19:COLOR C(3):PRINT"TOO LONG!! REDO ":COLO 
R C(2):GOTO 126 
130 ARS=ADR$(X):LOCATE 3,35:INPUT ADRS(X):IF ADRS$(X)="" THEN ADRŞ(X)=AR$ : LOCATE 
20,19:PRINT $РАСЕ$ (25) | 
132 IF LEN(NAM$(X))>25 THEN LOCATE 29,19:COLOR C(3):PRINT"TOO LONG!! REDO ":COLO 
R C(2):GOTO 139 
134 WRITE #2,COD$(X) ,ADR$(X) ,МАМ5 (7): СОТО 198 
136 PRINT: COLOR C(1):PRINT"Do you wish to add a Property (Y/N)";:COLOR C(2):INPU 
T Q3$ 
138 ТЕ 035= "N" OR QiS€ "n" THEN: 142 
14% X-X-1:CLS:COLOR C(1):LOCATE 2,1:PRINT"Prop. Code Renter's Name Addr 
ess":COLOR C(2):GOTO 120 
142 CLOSE#2:CLOSE#1:GOTO 972 
144 ' EXPENSE ACCOUNTS 
146 CLS:COLOR C(1):LOCATE 1,34:PRINT"EXPENSE ACCOUNTS":COLOR C(2) 
148 GOSUB 159:0N VAL(AT$) GOSUB 156,179,178,290:GOTO 146 
150 LOCATE 12,30:PRINT"Selections: ":LOCATE 13,3@:PRINT"1) Input Accounts" 
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152 LOCATE 14,30:РВІМТ"2) View Accounts":LOCATE 15,39:PRINT"3) Add/Change Accoun 
ts":LOCATE 16,30:PRINT"4) Return to Main Menu" 

154 LOCATE 18,30:PRINT"(1, 2, 3 or 4)":GOSUB 90g :RETURN 

156 GOSUB 992:CLS:X=@:GOSUB 976 

158 CLS:LOCATE 24,22:COLOR C(1):PRINT"Press «ENTER» When Finished";:COLOR C(2) 
16) X=X+1:LOCATE X,1:PRINT"Expense Account: #";:PRINT USING K2$;X;:LOCATE X,25:L 
INE INPUT EX$(X):LOCATE Х,40:РЕТМТ SPACES (30) 

162 IF LEN(EX$(X))>1@ THEN LOCATE X,4@:COLOR C(3):PRINT"Category is too Long! -R 
edo!":COLOR C(2):LOCATE X,25:PRINT SPACES(15):GOTO 160 

164 IF X=22 THEN CLOSE#1: GOTO 146 

166 IF EX$(X)="" THEN CLOSE#1:GOTO 146 

168 WRITE #1,EX$(X):GOTO 160 | 

170 X-0:CLS:LOCATE 1,34:COLOR C(1):PRINT"EXPENSE ACCOUNTS":COLOR C(2) 

172 GOSUB 978 

174 IF EOF(1)--1 THEN CLOSE#1:GOSUB 900:С0Т0 146 

176 X-X-1:INPUT #1,EX$(X):COLOR C(1):PRINT " Expense Account #";:PRINT US 
ING K2$;X;:COLOR C(2):PRINT" "SEX$(X):GOTO 174 

178 CLS:X-9:GOSUB 978:GOSUB 970 

189 IF EOF(1)--1 THEN 192 

182 X=X+1: INPUT #1,ЕХ$(Х) 


184 CLS:LOCATE 2,10:COLOR C(1):PRINT "Expense Account £";X;" "COLOR CUZ) PRI 
NT EX$(X) 

186 GOSUB 244:0N VAL(Q2$) GOSUB 188,189,199:GOTO 190 

188 COLOR C(1):PRINT:PRINT" New Account: ";:COLOR C(2):INPUT EX$(X) 


190 WRITE&2,EX$(X):GOTO 180 
192 PRINT:COLOR C(1):PRINT"Do you wish to add an Account (Y/N)";:COLOR C(2):INPU 
7035 

194 IF 035-"М" OR 035= "n" THEN 198 

196 X-X-1:IF Х=22 THEN 198:GOTO 188 

198 CLOSE#2 ,#1:GOSUB 980 

209 CLS:GOTO 56 

202 ' INCOME ACCOUNTS 

204 CLS:COLOR C(1):LOCATE 1,34:PRINT"INCOME ACCOUNTS":COLOR C(2) 

206 GOSUB 150:0М VAL(AT$) GOSUB 208,224,234,200:сото 204 

208 GOSUB 992:CLS:X=@:GOSUB 984 

210 LOCATE 24,22:COLOR C(1):PRINT"Press «ENTER» when Finished";:COLOR C(2) 

212 X-X41 

214 LOCATE X,1:PRINT"Income Account: $";:PRINT USING K2$;X;:LOCATE X,25:LINE INP 
UT IN$(X):LOCATE Х,40:РЕТМТ SPACES (39) 

216 IF LEN(INS(X))219 THEN LOCATE X, 49:COLOR C(3):PRINT"Category is too Long! - 
REDO!":COLOR C(2):LOCATE X,25:PRINT SPACES$(15):GOTO 214 

218 IF X=22 THEN CLOSE#1:GOTO 204 

220 IF INS$(X)-"" THEN CLOSE #1:GOTO 204 

222 WRITE #1, INS$(X):GOTO 212 

224 CLS:X=%:LOCATE 1,34:COLOR C(1):PRINT"INCOME ACCOUNTS":COLOR C(2) 

226 GOSUB 986 

228 IF EOF(1)=-1 THEN CLOSE#1:GOSUB 999:GOTO 204 

230 X=X+1 : INPUT#1, INS (2) 

232 COLOR C(1):PRINT" Income Account #";:PRINT USING K2$;X;:COLOR C(2):PR 
INT" "SINS(X):GOTO 228 

234 CLS:X-0:GOSUB 986:GOSUB 970 

236 IF EOF(1)=-1 THEN 256 

238 X=X+1: INPUT &1,IN$(X) 

240 ы, C(1):LOCATE 2,10:РЕІКТ "Income Account #";X;" "+ [COLOR C2): PRIN 
Т INS(X) 

242 GOSUB 244:0N VAL(Q2$) GOSUB 252,236,254:GOTO 254 

244 PRINT:COLOR C(1):PRINT" Do you wish to: ":PRINT" 1) Change the account" 

246 PRINT" 2) Delete the account":PRINT" 3) See next account":COLOR 062) 

248 Q2S=INKEYS:IF Q2$-"" THEN 248:RETURN 
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250 RETURN 
252 COLOR С(1):РЕТМТ" Мем Account: ";:COLOR C(2):INPUT INS$(X) 
254 WRITE €2,INS$(X):GOTO 236 I 
gan COLOR C (1): РАТМТ"ро you wish to ада an Account |) (Y/N)";:COLOR C(2):INPUT 03 
258 IF Q3$-"N" OR Q3$- "n" THEN 262 

260 Х-Х-1:ТЕ X-23 THEN 262:GOTO 252 

262 CLOSE22,*1 

264 GOTO: 988 

266 ' | 

268 VARA KR KAKA NKR СКИ esee dete eee ee ee ese defe ee e e fefe de ele e ede ee ede de ete ee ee eee ee de ee eee 

279 ' *** LIST MONTHLY TRANSACTIONS ЖҰЖ 

272 'eesetesese ese deese eee fee hee de ee ete ee de ee ee e ye de fe e ee e efe eee fe ee e ete eee e ele ee fee eee fedet deese 

РАДНЕ 

276 'SUBROUTINE FOR INPUTTING MONTHLY INFORMATION 

278 CLS:COLOR C(1):LOCATE 7,30:PRINT'MONTHLY INCOME 6% | EXPENSES":COLOR C(2) 

289 MN$&e"" :BAL-Q:LOCATE 9,39:PRINT"Selections;:" 

282 LOCATE 10,30:PRINT"1) Input Transactions":LOCATE 11,39:PRINT"2) View Data" 

284 LOCATE 12,30:PRINT"3) END Job":LOCATE 14,30: PRINT"(1, 2, or 3)":GOSUB 900 

286 ON VAL(ATS) GOTO 288, 352, 994:GOTO 278 

288 CLS:COLOR C(1):LOCATE 9,32:PRINT"MONTHLY JOURNAL" 

290 LOCATE 11, 19: INPUT"Month (81-12): ";М16:1Е М15<"01" OR ШЕШ THEN: 290 

292 LOCATE 12,7: INPUT" Previous Balance: ";PB:COLOR (2) :GOSUB 898:ТЕ-10Е(1)/70 

294 CLS; TR=TR+1} COLOR C(1):LOCATE 7,12: MI=VAL(M1$) : PRINT MTHS$(M1); PRINT " TRANS 
ACTIONS":LOCATE 8,11: PRENT ла ет БЕНЕН # "OTR: LOCATE 10, qii PRINS mai aii or! Ineom | 
е (ЕУІ) ?"; 

296 ANS= ТМКЕУЗ :IF АМ5="" THEN 296 

298 ТЕ ANS-"I" OR ANS="i" THEN LOCATE 10,28: PRINT" Incone” : GOTO 320 
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PARTIAL LIST OF FEATURES 

















All modules are menu driven / password protected Up to 12 digit alphanumeric part numbering 
Unlimited data entry in all modules Supports standard / average / suggested resale costing methods 
Prints hundreds of detailed management reports Integrated with Sales and Purchase Order systems 

Superior documentation for ease of use 

Easily adapts to virtually any business 








1 | E а Је Stock or preprinted forms available Maintains PO and Inventory files 
yah flexibi LS i Supports user defined notes / comments on all forms P rints confirming POs 
er ‘reports, je * AII modules completely integrated — істе repont by = number 
aintains vendor purchase history 
je "гола | or | 


E dBASE | fil 
xt 
















Unlimited user defined Chart of Accounts 3 š , 
Prints all standard financial reports Supports ordering and shipment of stock and non-stock items 


Up to 99 user defined departments Handles partial shipments / cancellations / changes of any SO 
Automatic credit checking during SO entry / invoicing / billing 
Provides extensive sales analysis reporting 

Open item or balance forward Maintains MTD billing and booking totals 

Verifies customer credit limit at invoice entry Line item/total invoice discounts during SO entry and / or invoicing 

Supports service or inventory billing 

Prepares customer statements with dunning notes Wy y. 3 

Maintains full cash flow analysis Entry of invoices posts to all pertinent modules 

Invoices stock / non-stock items 











ме тм gem 


En кое 


















the Prepares mailing labels and customer lists ' à 
^ AN " Қ `* \\ Line item discount and tax application 
" ` 4 Verifies customer credit limits 
es sai T. Cash disbursement management for all vendors Supports cash / check/credit card / payment оп account and returns 
Mc а * 5A M M Supports hand written checks Controls electronic cash drawer i 
Mas ч is & % Automatically posts recurring invoices monthly т” т ` 
compatibl ble, а - 1% š ew User defined aging periods M DELLAL ER, A | 
AAA ан ор sent Y MM МА | Prints vendor mailing labels and lists AY Y i 1% ` 4 “ мач +++ it TAAL “7 ` i ARY 
| VISA weleome, A UY ANNA ` | 3 (сам « DAY ма попа! ` L MA 1% ` 1 ` À i tis 
| d i . ` t à 
NAN TE `w à 4 “4 Supports labor related job costing i à kk ANY +4 i ‘California ` ЕЕ ЦАТ 113 
алы M 111 \\\ A ү M .% s ` Л ` M a A! Maintains federal, state and local tax tables а: ` A ` at ` у ` ` it B қ ^ ` Hours: Mon: Fri B am: 5 Pm РОТ. 
` А AX 1% % * Handles vacation and sick leave time T * RAT 


M $i AM à 


TLAS ` ` 
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300 IF ANS="E" OR AN$-"e" THEN LOCATE 19,28:PRINT"Expense":GOTO 302 ELSE 294 

302 COLOR C(1):LOCATE 11,4:PRINT"Expense Date (MM/DD): ":LOCATE 12,8:PRINT"Check 
No. (XXXX): ":LOCATE 13,17:PRINT"Paid To: " 

394 LOCATE 14,12:PRINT"For What (4$): ":LOCATE 15,12:PRINT"Property No.: ":LOCATE 
16,13:PRINT"Description: ":LOCATE 17,18:PRINT"Amount: ":LOCATE 19,17:PRINT"Bala 
nce: " 

396 COLOR C(2):LOCATE 11,26:INPUT D1$:LOCATE 12,26:INPUT D2$:LOCATE 13,26:INPUT 
IC$ 

308 GOSUB 916:LOCATE 14,26:INPUT F 

310 IF Е>Ү THEN 308 

312 Е5-ЕХ9(Е):Ү-й 

314 LOCATE 15,26:INPUT P$:LOCATE 16,28,1:LINE INPUT EC$:LOCATE 17,26:INPUT AMT 
316 TAM-AMT : TAM--TAM: AMT--AMT :РВ-РВҒТАМ :LOCATE 19,26:PRINT USING K$;PB 

318 GOTO 338 

320 COLOR C(1):LOCATE 11,7:PRINT"Dep. Date (MM/DD): ":LOCATE 12,9:PRINT"Dep. No. 
(XXXX): ":LOCATE 13,13:PRINT"Income From: ":LOCATE 14,11:PRINT"Income For (#) " 
:LOCATE 15,12:PRINT"Property No.: ":LOCATE 16,13:PRINT"Description: ? " 

322 LOCATE 17,7:PRINT"Amount of Deposit: ":LOCATE 19,17:PRINT"Balance: ":COLOR C 
(2) 

324 LOCATE 11,26:INPUT D1$:LOCATE 12,26:INPUT D2$:LOCATE 13,26:INPUT IC$ 

326 GOSUB 926:LOCATE 14,26:INPUT F 

328 IF ЕРУ THEN 326 

330 F$-INS(F):Y-0 

332 LOCATE 15,26:INPUT P$:LOCATE 16,28,1:LINE INPUT EC$:LOCATE 17,26:INPUT AMT 
334 TAM- AMT : PB-PB - ТАМ 

336 LOCATE 19,26:PRINT USING K$;PB 

338 LOCATE 21,5:INPUT"Is This Information Correct (Y/N)? ";AC$ 

340 IF ACS="N" OR ACS="n" THEN 294 ELSE 342 

342 LSET COD$=P$:LSET CATS=F$:LSET DT$=D1$:LSET DL$=D2$:LSET PDTO$=IC$:LSET DSC$ 

=EC$:LSET AMTS=MKD$ (AMT) 

344 PUT #1,TR 

346 LOCATE 23,28: INPUT"More Input (Y/N)? ";ANS 

348 IF AN$-"Y" OR AN$-"y" THEN 294 ELSE 350 

350 LOCATE 23,40:РЕТМТ "SAVING";TR;:PRINT " TRANSACTIONS" :CLOSE£1:RETURN 

352 'SUB-ROUTINE FOR VIEWING TRANSACTIONS 

354 CLS:BAL-Q:LOCATE 1,30:COLOR C(1):PRINT"TRANSACTION JOURNAL" 

356 PT$-"":LOCATE 3,6:PRINT"What Month (01-12): ";:COLOR C(2):INPUT M1$:LOCATE 4 
,8:COLOR C(1):PRINT"Previous Balance: ";:COLOR C(2):INPUT BAL:BX-BAL:GOSUB 898:M 
1-VAL(M1$) 

358 CLS:COLOR C(1):LOCATE 4,10:РЕТМТ"ро You Want to See All Tranactions or Just 

One Property Location? " 

369 LOCATE 5,10:PRINT"All or One (A/O): ";:COLOR C(2):INPUT XX$:IF XX$-"A" OR XX 

$="а" THEN MN$-"All" 

362 IF XX$-"O" OR XX$- "o" THEN LOCATE 7,19:COLOR C(1):PRINT"What is the Propert 

y No. (XXX): ";:COLOR C(2):INPUT MN$ 

364 COLOR C(1):LOCATE 9,10:PRINT"Send Data to Printer (Y/N)";:COLOR C(2):INPUT P 

T$:CLS:Y=3:TR=1 

366 LOCATE 1,25:COLOR C(1):PRINT"TRANSACTIONS FOR MONTH: ";MTH$(M1):LOCATE 1,60: 

PRINT"Prop. No.: ";:COLOR C(2):PRINT MN$ 

368 IF PT$-"Y" OR PT$-"y" THEN GOSUB 666:LPRINT ТАВ(30) "Transactions for " MTH$ 
(M1) " Prop. No.: ";MN$ 

370 COLOR C(1):LOCATE 3,1:PRINT"Date Tr # Category Received/Paid To: For: 

Prop: Amount":COLOR C(2) 

372 IF PT$-"Y" OR PT$-"y" THEN GOSUB 666:LPRINT" Date Tr # Category Receiv 

ed/Paid To: For: Prop: Amount":LPRINT "" 

374 GET #1,TR:AMT=CVD(AMTS):IF EOF(1)=-1 THEN CLOSE#1:GOTO 394 

376 IF XX$-"A" OR XX$-"a" THEN 382 

378 IF XX$-"O" AND CODS <> MNS THEN 392 

380 IF XX$-"o" AND COD$ <> MNS THEN 392 
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Take off with а Тапду portable 


and have real computing power 
wherever you travel. 


Great traveling companions 


Whether you're a business- 
person, journalist, police officer 
or student, you can't afford idle 
time. Our affordable Model 100, 
Tandy 200, and Tandy 600 porta- 
ble computers are invaluable 
tools that help keep you on top 
of your work wherever you go. 


Computing power for less 

The popular Model 100 
(26-3802) is perfect for writing 
letters, reports and other corre- 
spondence anywhere, at any 
time. Or use the 100 as your 
personal appointment calendar 
and name/address and phone di- 
rectory. This lightweight com- 
puter was the first to feature five 
instant-on programs, as well as a 
40 x 8 display—all built in. 






At only $499, this powerful 
little traveler offers you more 
options than you thought 
possible—including a built-in 
modem and a communications 
program that lets you access 
other computers or national in- 
formation services by phone. 
You can even write your own 


programs in BASIC. 


Powerful portability 

The $799 Tandy 200 repre- 
sents a true second generation 
in portable computers. Not only 
does it come with its own built- 


in software, improved features, 
a bigger 40 x 16 fliptop screen, 
and a larger memory, but it 
weighs only 4!/2 pounds. 


Plus, the Tandy 200 (26-3860 
comes with powerful Multiplan 
spreadsheet analysis built right 
into the memory. You can do 
complex spreadsheet calcula- 
tions at the touch of a key. An- 
swer thousands of “what if... ?' 
questions instantly. 


> 





Our most advanced laptop 


The high-performance Tandy 
600 (26-3901) features a 16-bit 
microprocessor, an 80 x 16 dis- 
play, a built-in 31/2” disk drive 
that stores 360K of data, and 
32K RAM (expandable to 224K). 


At $1599, the Tandy 600 
also includes five resident 
applications—all designed by 
Microsoft for anyone who’s al- 
ways on the go. With the Tandy 
600’s larger display and ex- 
panded memory, Multiplan can 
handle more information. 

Using MS-Word®, you'll also 
have quicker access to docu- 
ments and more storage capacity 
with the built-in disk drive. File 
is an electronic database for 
names and addresses, expenses, 
client billing and more. With the 


Telecom program and the Tandy 
600’s built-in modem, you can 
keep in touch over phone lines. 





Don’t leave the office 
without one 


Tandy offers you a choice of 
three portable computers—one 
is sure to fit your needs. See 
them all at your local Radio 
Shack Computer Center! 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


® 


A DIVISION OF TANDY CORPORATION 


Send me a free 
Computer Catalog. 


Radio Shack, Dept. 86-A-900 
300 One Tandy Center 
Fort Worth, Texas 76102 


Name 
Address 
City 
State 
ZIP 


um mE UMS SS ШЕ ONE ИШ ИЕ EN 


Phone. 


Біз а nes pus ки шш wem pns мё 


Prices apply at Radio Shack Computer Centers and participating stores and dealers. Multiplan and MS-Word/Registered TM Microsoft Corp. 














382 M1l=VAL(M1$) : BAL=BAL+AMT 

384 Y=Y+1:COLOR C(2):LOCATE Y,1:PRINT DT$;:LOCATE Y,8:PRINT DL$;:LOCATE Y,14:PRI 
NT CAT$;:LOCATE Y,24:PRINT PDTO$;:LOCATE Y,43:PRINT DSC$ 

386 LOCATE Y,63:PRINT COD$;:LOCATE Y,68:PRINT USING KK$;AMT 


388 IF PT$-"Y" OR PT$-"y" THEN LPRINT " " DT$ h m DLS^" —" CATS.PDTOS * ."'Ds5 
C$ COD$ " ";:LPRINT USING KK$; AMT 


399 IF Y-23 THEN Y-2:GOSUB 400 

392 TR=TR+1:GOTO 374 

394 CLOSE#1:Y=Y+2:LOCATE Y,28:COLOR C(1):PRINT"Ending Balance: ";:COLOR C(2):PRI 

NT USING KK$;BAL 

396 IF PT$-"Y" OR PT$-"y" THEN GOSUB 666:LPRINT ТАВ(30) "Ending Balance: ";:LPRI 

NT USING KK$;BAL:GOSUB 666 

398 GOSUB 999:GOTO 278 

400 LOCATE 24,27:COLOR C(1):PRINT"Hit «ENTER» to Continue";:COLOR C(2):GOSUB 900 
:GOSUB 904 

402 ' gone t 

AGU ' тата AIAN тата тата та тата тата тата та тата тата тата HEH HEH IEE 

406 ' *** INCOME/EXPENSE SUMMARY *** 

UGB | Jeekeesedeedeseededededeeyedeedesee esee KKK KKK KAKAK KKK KAKKA KEKEKE KAKA KAKEK KKK KEKEKE TOE 

410 ' 

412 CLS:PT$-"Q":BAL-Q:COLOR C(1):LOCATE 7,30:РЕТМТ"ТМСОМЕ/ЕХРЕМЗЕ SUMMARY" 

414 COLOR C(2):LOCATE 9,39:PRINT"Selections: " 

416 LOCATE 19,30:PRINT"1) Expense Summary" 

418 LOCATE 11,39:PRINT"2) Income Summary" 

420 LOCATE 12,39:PRINT"3) Monthly Summary" 

422 LOCATE 13,39:PRINT"A4) Year-to-Date Summary" 

424 LOCATE 14,30:РЕТМТ"5) END Job":LOCATE 16,30:РВІКТ"(1, 2, 3, 4 or 5)":GOSUB 9 

02 

426 IF ATS$«"Q" ОВ АТ5>"5" THEN 412 

428 ОМ VAL(AT$) GOTO 432,478,530,672,904: Сото 412 

430 'ROUTINE TO VIEW EXPENSES 

432 CLS:BAL-9:LOCATE 9,32:COLOR C(1):PRINT"Expense Summary":LOCATE 11,20:PRINT"W 

hat Month (01-12): ";:COLOR C(2):INPUT M1$:M1=VAL(M1$) 

434 LOCATE 13,2:COLOR C(1):PRINT"A11 Categories or One Expense Category? " 

436 GOSUB 916 

438 LOCATE 14,24:COLOR C(1):PRINT"Category (ALL/#)";:COLOR C(2):INPUT F$ 

440 IF F$-"ALL" THEN CT$-"ALL":GOTO 444 

442 F=VAL(F$) :СТ9=ЕХЅ (Е) : LI-LEN(CT$) 

444 GOSUB 898:CLS:COLOR C(1):LOCATE 1,39:PRINT MTH$(M1);" Expenses":LOCATE 1,55: 
PRINT" Category - ";:COLOR C(2):PRINT СТ5 

446 TR=1:Y=3:BAL=9 

448 COLOR C(1):LOCATE 3,1:PRINT"Date Ck # Category Paid To: For: 

Prop: Amount" :COLOR C(2) 

450 GET *1,TR:CZS$-LEFTS(CATS$,L1):IF EOF(1)=-1 THEN CLOSE#1:GOTO 466 

452 IF CTS$-"ALL" THEN 456 

454 IF CT$=CZ$ THEN 456 ELSE 464 

456 AMT=CVD(AMTS):IF AMT > Ø THEN 464 

458 BAL=BAL+AMT 

469 Y-Y-1:COLOR C(2):LOCATE Y,1:PRINT DT$;:LOCATE Y,8:PRINT DL$;:LOCATE Y,14:PRI 
NT CAT$;:LOCATE Y,24:PRINT PDTO$;:LOCATE Y,43:PRINT 0565 

462 LOCATE Y,63:PRINT CODS$;:LOCATE Y,68:PRINT USING KK$;AMT 

464 TR=TR+1:GOTO 450:СІ05ЕЯ1 

466 Y-Y-2:LOCATE Y,28:COLOR C(1):PRINT"Total Expenses: ";:COLOR C(2):PRINT USING 
KK$;BAL:GOSUB 900 

468 LOCATE 24,30:COLOR C(1):PRINT"<A>nother or «M»enu";:COLOR C(2) 

470 ҮҮ$=ІМКЕҮ$:ІЕ YY$-"" THEN 470 

472 IF YY$-"A" OR YYS="a" THEN 432 

474 IF YY$-"M" OR YY$-"m" THEN 412 

476 CLOSE#1:RETURN 
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478 "SUBROUTINE TO VIEW INCOME 

480 CLS: BALAQ: МА 9,32:COLOR C(1):PRINT"Income Summary"! LOCATE: 11,20; ШИНЫ, 
at Month (91-12): " : COLOR C(2) :INPUT M1$:M1-VAL(MI1$) 

482 LOCATE 13,3: COLOR C(1):PRINT"All Categories or One Income Category? " 

484. GOSUB 926 


486 LOCATE 14,23:COLOR C(1):PRINT"Category (ALL/#) ";:COLOR.C(2):INPUT F$ 
488 IF F$-"ALL" THEN CT$-"ALL":GOTO 492 


499 F-VAL(ES):CTSSINS(E):LI-LEN(CTS) 

492 GOSUB 898 

494 Chet COLOR C(1):LOCATE 1,3@:PRINT MTH$(M1);" Income":LOCATE 1,55: PRINT"Catego 
ry: СООК. C(2):PRINT CT$ 

496 TR-l: Y-3: BAL=@ 

498: COLOR CCL): LOCATE 3,1:PRINT"Date | Dep# Category Received From For: 

Prop: Amount":COLOR.C(2) 

500 GET &l,TR:OZS$-LEFTS(CATS,L1):IF CT$-"AlI" THEN 506 

502 IF ЕОЕ(1)--1 THEN CLOSE #1:GOTO 514 nu ИҢ, 

504 IF CT$=CZ$ THEN 596 ELSE 512 pina wr 

506 AMTeCVD(AMTS):IF AMT < 0 THEN 512 

508 Ү-Ү%1:С010К C(2):LOCATE Y,1:PRINT DT$;:LOCATE Y,8:PRINT DLS; LOCATE Y,14:PRI 
NT CATS$;:LOCATE Ү;24:РВІКТ PDTOS;:LOGCATE Y,43:PRINT DSCS 

519 LOCATE Ү,63:РКІМТ COD$;:LOCATE Y,68:PRINT USING KK$;AMT:BAL-BAL*AMT 

512 TR-TR4*1:GOTO 599:CLOSE #1 

514 Y=Y+2:LOCATE Y,28:COLOR C(1):PRINT"Total Income: m; COLOR C(2):PRINT USING: K 
KS;BAL:GOSUB. 900 Н 

516 LOCATE 24,39: COLOR C(l):PRINT'"«A»nother or «M»enu"; :С60ОТОВ/6(2) 

518 YYS-INKEYS:IF YY$-"" THEN 518 

520 IF ҮҮ5-"А" OR YY$-'"a" THEN 480 

522 IF YY$-"M" OR YY$-"m" THEN 412 

524 СПОБЕЊЕ RETURNRUN 

526 ' 

528 н К HEEE н А на 
530" ** MONTHLY SUMMARY ЖҰЖ 

532." АЗ ee ee а ede ee ee ee ee eee se ete ee dee ee eee ee dee ee efe te Vete ee deste eee ee eee ee ee eee 
334 

536 OLS:LOCATE 9,32:COLOR C(1):PRINT"Monthly Summary: LOCATE. 11,20:PRINT"What Mo 
nth (91-12)2."; : COLOR C(2): INPUT M1$:Ml-VAL(MIS) 

538 COLOR C(1):LOCATE 15,20:PRINT"SEND DATA TO PRINTER ИТУ "33 COLOR C(2): INPUT 
PTS 

5409 CLS:BAL-U:AMT-0:Y-2:R1-9:T1-0:TT-0:X-1:T-1 

542 IF РТ5-"Ү" OR PT$-"y" THEN GOSUB 648 

544 T1-0:LOCATE 1,39:COLOR C(1):PRINT MTH$(M1);" Monthly Summary": COLOR C(2) 

546 GOSUB.898:BAL(X)-9: AMT-U 

548 IF RISO. THEN GOSUB 590 ELSE 592 

550 LI-LEN(CT$):TR-1 

552 GET#1 TR 

354 IF ЕОЕ(1)--1 THEN CLOSE#L: GOTO 564 

556 AMT-CVD(AMTS) :CZS-LEFTS(CATS , L1) 

558 IF CT$-C2$ THEN 569 ELSE 562 

560 ВАТ (X)=BAL(X)+AMT 

562 TRETR+1: GOTO. 552 

564 Y=¥+L LOCATE: Ү;29:РЕТМТ СТО: LOCATE Y,43:PRINT USING б: BAL(X): T1=T1+BAL(X) 
566 ТЕ Y222 THEN GOSUB 736:Y-2:CLS 

568 ІК PT$-'"QX" THEN GOSUB 652 

570 XeX41:T-T41 

972 IF Rl=1 THEN. 576 

574 IF 1М5(Т)-"" THEN 580 ELSE 546 

576 IF EXS$(T)-"" THEN 594 ELSE 546 

578 ТЕ КІ-1 THEN GOTO: 594 i М 

580 Y—Y-2:LOCATE Y,29:COLOR C(1):PRINT"Total Income: "COLOR 6(2):120С6АТЕ Y,43 
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:PRINT USING KS$;T1:Y=Y+1 

582 IF Y>22 THEN GOSUB 736:Y-2 

584 IF PT$-"QX" THEN GOSUB 658 

586 R1-1:IN(1)-T1:T-1 

588 CLOSE#1:GOTO 544 

590 CTS-INS$(T):RETURN 

592 CTS$=EX$(T):GOTO 550 

594 Y=¥+2:LOCATE Y,29:COLOR C(1):PRINT"Total Expenses: ";:COLOR C(2):LOCATE Y,43 
:PRINT USING К9;Т1 

596 IF Y>22 THEN GOSUB 736: Y=2 

598 TT=IN(1)+T1:1F PT$-"QX" THEN GOSUB 660 

600 Y=Y+2:LOCATE Y,29:COLOR C(1):PRINT"Balance: ";:COLOR C(2):LOCATE Y,43:PRINT 
USING K$;TT 

602 IF PT$-"QX" THEN 662 

604 CLOSE#1:Y=1:X=1:R=9 

696 GOSUB 909 

608 CLS:COLOR C(1):LOCATE 19,18:PRINT"Do You Want to Update the Yearly Summary F 
ile?":LOCATE 12,28:PRINT"Update Only One Time!" 

610 LOCATE 14,25:PRINT" (<Y>es/<N>o/<F>irst Time) ";:COLOR C(2):INPUT UP$ 

612 IF UPS-"" THEN 612 

614 IF UP$-"Y" OR UP$-"y" THEN 618 

616 IF UPS="F" OR UPS="£" THEN 626 ELSE 412 

618 CLS:Z-9:COLOR C(1):LOCATE 7,390:PRINT"Loading Previous Summary File":T-:2-0 
620 GOSUB 936 

622 IF EOF(1)=-1 THEN CLOSE#1:GOTO 626 

624 Z=Z+1: INPUT#1 ,IT$(Z),BL(Z):GOTO 622 

626 GOSUB 938 

628 CLS: LOCATE 7,39:PRINT"Adding Current Month" :R=@:W=1:T=1 

639 IF R-Q THEN BZ(W)=BAL(T)+BL(T) :WRITE #1, INS(W) ,BZ(W) 

632 IF R-1 THEN BZ(W)=BAL(T)+BL(T) :WRITE#1,EXS(W) ,BZ(W) 

634 W=W+1:T=T+1 

636 IF R=@ THEN GOTO 642 

638 ТЕ R-1 THEN GOTO 644 

649 W=1:R=1:GOTO 632 

642 IF ІМ5(М)-"" THEN GOTO 640 ELSE 639 

644 IF EX$(W)="" THEN GOTO 646 ELSE 632 

646 CLOSE#1:LOCATE 24,30:РВІМТ"Ніс <ENTER> to Continue":GOSUB 900:60Т0 412 

648 GOSUB 666:LPRINT TAB(36) МТН5(М1);" Monthly Summary":LPRINT TAB(41) DATES 
659 GOSUB 666: PT$="QX":LPRINT pancake "INCOME" : RETURN 

652 LPRINT ТАВ(30) CT$;" : 

654 Pl=11-L1:FOR V=@ TO P1: LPRINT "o To NEXE V 

656 LPRINT USING K$;BAL(X):RETURN 

658 LPRINT TAB(51) " ":LPRINT ТАВ(34) "TOTAL ";:LPRINT USING 
K$;T1:LPRINT "":LPRINT ТАВ(30) "EXPENSES: ":RETURN 

660 LPRINT TAB(51) " ":LPRINT TAB(34);"TOTAL EXPENSES: ";:LPRINT USING 
K$;T1:GOSUB 666:RETURN 

662 LPRINT TAB(51) "==== =" :LPRINT TAB(34) "BALANCE: ";:LPRINT USING 
K$;TT:GOSUB 666:GOSUB 909:GOTO 412 

664 PTS$="Q":CLOSE#1:GOTO 698 

666 FOR Х-1 TO 2:LPRINT" ":NEXT X:RETURN 

668 ' 

СИДЕ та ата ха тата тта вата тата таласа ата ата тата тата таласа КУК 

672 ' ххх YEAR TO DATE SUMMARY *** 

674 ' RKKKKKA KAA K HARARE AKER IKEA EKER KERIKERI IR AIEEE RII IE RII ERR ITI II OR 

676 ' 

678 CLS:COLOR C(1):LOCATE 19,10:PRINT"You must summarize current month and add t 
o Yearly Summary File before Year-to-Date File will be accurate! 
":PRINT"Continue (Y/N) ";:COLOR C(2):INPUT QS:PT$-"q":TT-0 

689 IF Q$-"" THEN 689 
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Memory Upgrades for Tandy Portables! 


Model 600 96K RAM Upgrade 
$249. ог $465.for two 
Save upto $335. with this upgrade designed 
specifically for the Model 600. The 96K up- 
grade card fits into existing slots in the Model 
600 and adds either 96K or 192K of RAM to 
the computer. 


Model 200 Model 100, 8201 or М10 


24K RAM Upgrade 8K RAM Upgrade 
$89.00 $27.00 
Two for $170. $75. for pkg. of 3 


Save up to $330. with this ex- Save up to $282. upgrading an 

act replacement while bringing 8K Model 100 to 32K. The 

your Model 200 up to 72K. modules also fit the NEC 8201 
and the Olivetti M10. 


Ж Ж Ж BUY QUALITY 8. SAVE Ж x ж 


All three upgrades feature low power version of CMOS static RAM for 
minimum battery drain and maximum reliability. Our products are 10096 
tested before they leave the factory. Every upgrade carries with it a 3O day 
satisfaction money back guarantee and 1 yr. replacement warranty. Step 
by step illustrated instructions are included, and our customer service 
support is as close as your phone. 


TO ORDER 
CALL 714-540-1174 
or WRITE 


M/C, VISA, CHECK or MONEY ORDER American 
CALIF. RESIDENTS ADD 696 Sales Tax Ж) Cryptronics Inc 
9 e 


SHIPPING-ADD 
UPS Ground $1.50 (Formerly Cryptronics, Inc.) 
2nd Day Air $4.00 1580 Corporate Drive, Suite 123 


Next Day Air $12.00 Costa Mesa, California 92626 
Tandy is a registered trademark of Tandy Corp. (714) 540-1174 








682 IF Q$-"Y" OR Q$-"y" THEN 684 ELSE 412 

684. COLOR C(1):LOCATE 15,19: PRINT'Send Data to Printer (Y/N)";:COLOR C(2):INPUT 

PTS 

686 COLOR C(1):LOCATE 17,10:PRINT"What Month (01-12): ";:COLOR.C(2):INPUT MILS: MI 

=VAL(MIS) 

688 CLS:LOCATE 1,31:COLOR C(1):PRINT"Year-to-Date Summary”: LOCATE 1,60:PRINT DAT 

ES$:220:Y-3 

690 IF PT$="Y" OR PT$-"y" THEN GOSUB 726 

692 GOSUB 936 У 

694 LOCATE 3,29:PRINT"INCOME: ":COLOR C(2) 

696 IF EOF(1)--l THEN CLOSE &1:GOTO 712 

698 Z-Z*l1:INPUT£&1,ITS$(2),BAL(Z):TT-TT-BAL(Z) 

7008 IF ITS(Z)-EXS(1) THEN Y-Y-1:TT-TT-BAL(Z):LOCATE Y,29:COLOR C(l):PRINT"TOTAL 

INCOME; ":LOCATE Y,43:COLOR C(2):PRINT USING K$;TT:TT-0:TT-BAL(Z) 

702 IF ITS$(Z)-EX$(1) THEN Y=Y+2: COLOR C(1):LOCATE Y,29:PRINT"EXPENSES: "COLOR C 

52): IF РТ9-"ОХ" THEN LPRINT ise aa "SLPRINT TAB(34) "TOTAL INCOME: 
:LPRINT USING KS; TT:LPRINT "* RINT NT TAB(39) "EXPENSES: ":ТТ-0 

794 Y=Y+1L COLOR C(2):LOCATE Y,29:PRINT ITS$(Z):LOCATE Y,43:PRINT USING K$;BAL(Z) 

706 IF Ү>22 THEN GOSUB. 736:Y-2:CLS:COLOR C(l1):LOCATE 1,39:PRINT"Year-to-Date Sum 

mary": LOCATE 1,60:PRINT DATES 

708 ТЕ PTS="QXK" THEN GOSUB 728 

710 TZ=TZ+BAL(Z):GOTO 696 

712 Y=Y+1:LOCATE Y,29:COLOR C(1):PRINT"TOTAL EXPENSES: ":COLOR C(2):LOCATE Y,43: 


PRINT USING KS$;TT:IF PT$-"QX" THEN LPRINT TAB(51) " У БРЕТ. TAB(34) "T 
OTAL. EXPENSES; ";:LPRINT USING K$;TT;LPRINT "" 

714 YeY-2:IF Ү>22 THEN GOSUBR 728:Y-2:CLS 

716 LOCATE Y,30:COLOR C(l):PRINT'"Balance: M COLOR C (2) PRINT USING K$;TZ 


718 IF Y222 THEN GOSUB 736:Ү-2 
720 IF PT$-"QX" THEN 734 








PEeKEYe DRAW 


m Version 3.0 mi MARYMAC INDUSTRIES INC. 
800-231-3680 
Radio Shack® Tandy® 


EPSON PRINTERS 


People you Trust to give you the very best! 





• Lowest 
Discount 


High power graphics edt ton, CAD, paint, and slide show Prices 
progran fer the Tandy 1 1200, and 1000 with 256K Mi 

color graph ics card, ver 158 functions са multiple pages 
multiple layers, macro feature, multiple text fonts, multiple 


patterns, mouse support, novice and expert modes, and more, 


• Reliable 
Service 


515.00 trial pis includes, complete гона. partial 
manual on disk, and quick reference car 

Products 
$100.00 registration price includes, complete printed manual 
quick reference card, updates at cost and complete program. 


“World’s largest independent 
“authorized computer Dealer" 
22511 Katy Fwy., Katy (Houston) Texas 77450 

(743) 392-0747 Telex 774132 


Shareware; Copy & share, Send check or money orden, to: 
EDWARE 
. Bo» 






o 
P. 
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722 GOSUB 900 

724 Т2-0:С60Т0 412 

726 GOSUB 666:LPRINT ТАВ(30) "Year to Date Summmary - ";MTHS$(M1):LPRINT TAB(41) 
DATES$:GOSUB 666: PTS="QX":LPRINT TARAIA "INCOME: ":RETURN 

728 LPRINT TAB(39);ITS(2Z);" 


730 LI=LEN(IT$(Z)):P1=11-L1:FOR V=@ TO Pl:LPRINT " ";:NEXT V 
732 LPRINT USING K$;BAL(Z):RETURN 
734 GOSUB 666:LPRINT TAB(51) "----------":ІІРАІМТ TAB(34) "BALANCE: МИРЕ 


INT USING K$;TZ:GOSUB 666:GOSUB 900:Сс0Т0 412 

736 LOCATE 24,30:COLOR C(1):PRINT"Hit «ENTER» to Continue";:COLOR C(2):GOSUB 900 
AEG 

738 

749 "ЗО AIK а ЭУ ARERR KRENEK IKK KIKI IK 777 IEEE EE TEE KER ӘУ 

742 ' ххх PROPERTY INFORMATION *** 

74% | ХЕНК dede seeseseJesfesesede EE KAIRIE RRA KIER EERIE IRR ER EERIE RIKER ERIE 


746 ! а” a teli. 
748 CLS:COLOR C(1):LOCATE 12,39: РВІМТ"Кепба1 Property Information":COLOR C(2) 
750 ТАС5-"" :LOCATE 14, 39:PRINT"1) Input Data":LOCATE 15,39:PRINT"2) View Data" 


752 LOCATE 16,39: PRINT"3) Change Data":LOCATE 17,30:PRINT"A) END Job" 

754 LOCATE 19,30:PRINT"(1, 2, 3, or 4)":GOSUB 900 

756 ON VAL(AT$) GOSUB 758,832,880,904:С0Т0 748 

758 'SUBROUTINE TO INPUT DATA ON DISK 

760 GOSUB 892 

762 REC=LOF(1)/299 

764 REC=REC+1 

766 CLS:COLOR С(1) :ТОСАТЕ 1,30:PRINT"Rental Property Information" 

768 LOCATE 3,10:PRINT"Property Code No: ":LOCATE 3,55:PRINT"Update: ":LOCATE 4,1 
9:PRINT"Address: ":LOCATE 4,55:PRINT"Record #":LOCATE 5,22:PRINT"City: ":LOCATE 
6,21:PRINT"State: " 

770 LOCATE 7,18:PRINT"Zip Code: ":LOCATE 9,13:PRINT"Renter's Name: ":LOCATE 10,1 
5:PRINT"Rental Date: ":LOCATE 11,10:РЕТМТ"Рћопе (XXX-XXXX): " 

772 LOCATE 12,14:PRINT"Deposit Paid: ":LOCATE 13,14:PRINT"Monthly Rent: ":LOCATE 
15,13:PRINT"Purchase Date: ":LOCATE 16,12:PRINT"Purchase Price: " 

774 LOCATE 18,1:PRINT"Lien #1: ":LOCATE 18,39:PRINT"Date Due (XX): ":LOCATE 18,5 

Q:PRINT"Monthly Mortgage: " 

776 LOCATE 19,1:PRINT"Lien #2: ":LOCATE 19,39:PRINT"Date Due (XX): ":LOCATE 19,5 

Q:PRINT"Monthly Mortgage: ":COLOR C(2) 

778 IF TAGS="VIEW" OR TAGS="CHANGE" THEN 846 

780 P$=CODS (REC) : AS-ADRS (REC) : NS=NAMS (REC) 

782 LOCATE 3,30:РЕТМТ P$:LOCATE 3,63:PRINT DATES:LOCATE 4,30:PRINT A$:LOCATE 4,6 

3:PRINT REC:LOCATE 9,30:РВІМТ NS 

784 LOCATE 5,28:INPUT CS$:IF C$-"" THEN CS=CITYS 

786 LOCATE 6,28:INPUT S$:IF S$-"" THEN SS=STATS 

788 LOCATE 7,28:INPUT ZS:IF ZS="" THEN ZS=ZIP$ 

790 LOCATE 19,28:INPUT R$:IF R$-"" THEN RS=RDATS 

792 LOCATE 11,28:INPUT H$:IF H$-"" THEN HS=PHONS 

794 LOCATE 12,28:INPUT D(REC):IF D(REC)-U0 THEN D(REC)-CVD(DEP$) 

796 LOCATE 13,28:INPUT M(REC):IF M(REC)-9 THEN M(REC)=CVD(MRENS) 

798 LOCATE 15,28:INPUT ES:IF E$-"" THEN ES=PURS 

800 LOCATE 16,28:INPUT PRI(REC):IF PRI(REC)-0 THEN PRI(REC)=CVD(PRICS$) 

802 LOCATE 18,10:INPUT LN$:IF LN$-"" THEN LNS=LIENS 

804 LOCATE 18,45:INPUT PYS:IF РҮ5-"" THEN PYS=PAYS 

806 LOCATE 18,67:INPUT Q(REC):IF Q(REC)=9 THEN Q(REC)=CVD(MORTS) 

808 LOCATE 19,10:INPUT LMS(REC):IF LM$(REC)="" THEN LMS(REC)-LF$ 

810 LOCATE 19,45:INPUT PZS(REC):IF.PZS$(REC)-"" THEN PZS(REC)=PBS 

812 LOCATE 19,67:INPUT 01(ВЕС):ІЕ 01(ВЕС)-й0 THEN Q1(REC)=CVD(MPS$) 

814 LSET UDATS=DATES$:LSET СОр5-Р9:1І.5ЕТ ADRS$-AS:LSET CITY$-CS$:LSET STATS=S$:LSET 

ZIPS-ZS:LSET NAMS=N$:LSET RDATS=R$:LSET PHONS=H$:LSET DEPS-MKDS(D(REC)) 

816 LSET MRENS=MKD$(M(REC)):LSET PURS=E$:LSET PRICS=MKD$(PRI(REC)) 
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We edged out the competition 
with better solutions for 
every application. 
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Presenting the Tandy? line of 


PC-compatible computers 
from Radio Shack 


At Radio Shack Computer 
Centers, you won't find just any 
computer, you'll find the right 
computer for your business. Our 
line of computers based on the 
MS"-DOS operating system lets 
you outfit your office with the 
computing power you need, with- 
out paying for capabilities you 
may never use. And since we carry 
a wide range of software and ac- 
cessories, you can do all of your 
business at one location. So come 
in today and let our trained staff 
help you decide which Tandy com- 
puter is right for your business. 


America's "1 PC compatible 


Looking for a complete, low- 
cost MS-DOS system? Take а 
look at our popular Tandy 1000. 
Because the Tandy 1000 is com- 
patible with the IBM® PC, there 
are thousands of software pro- 
grams for you to choose from. 
But unlike IBM’s PC, every 
Tandy 1000 comes with Desk- 
Mate® software. DeskMate in- 
cludes six applications so you can 
start computing from day one. 


The РС/ХТ% “тпіггог image" 


The Tandy 1200 works like an 
IBM PC/XT—but costs much 
less. The 1200 runs the same 
top-name software and supports 
the same hardware as the PC/XT. 
So if you’re already using one or 
more IBM PC’s in your office, 
the Tandy 1200 lets you expand 
for less—and continue using the 
same software. 


The graphics advantage 
Searching for a quality com- 
puter with advanced graphics 
capabilities? Take a good look 
at the affordable Tandy 2000. 
The 2000 features high- 
resolution graphics to create 
razor-sharp graphs and diagrams 
in a brilliant array of colors. 


Combined with computer- 
aided-design software, a Tandy 
2000 gives your company endless 
opportunities for increased crea- 
tivity and productivity. 


The new Tandy 3000 


Introducing a super-powerful 
computer that’s the affordable al- 
ternative to the IBM PC/AT. The 
Tandy 3000 has all the power 
you need to manage your busi- 
ness, and it’s compatible with 
programs designed for the PC/AT 
and PC/XT. The Tandy 3000 ор- 
erates at 8 megahertz, twice the 
speed of the industry standard. It 
comes with 512K of main mem- 
ory and ten expansion slots. And 
with the forthcoming XENIX™ 
operating system, two to six us- 
ers will be able to use the Tandy 
3000 simultaneously, using low- 
cost data terminals. 


In business...for business 

For the best in state-of-the-art 
computers, popular software, 
professional training, support 
and affordable leasing, visit your 
local Radio Shack Computer 
Center today. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


Radio /haek 


COMPUTER CENTERS 


A DIVISION OF TANDY CORPORATION 
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818 LSET LIENS-LN$:LSET PAYS=PY$:LSET МОЕТ%-МК09(О(ВЕС)) 
820 LSET LFS$-LM$(REC):LSET РВ5-Р26(ВЕС):1.5ЕТ MP$-MKD$(Q1(REC)) 

822 PUT #1,REC 

824 IF TAGS-" CHANGE" THEN GOTO 858 A 

826 COLOR C(1):LOCATE 21,3%:PRINT"1) Input Another File" 

828 LOCATE 22,39:PRINT"2) Change Information":LOCATE 23,3%:PRINT"3) END Job":LOC 

ATE 24,30: PRINT" (1, 2, or 3)";:GOSUB 900 

839 ОМ VAL(ATS) GOSUB 764,878,888:GOTO 826 

832 'SUBROUTINE FOR VIEWING INFORMATION FILES 

834 GOSUB 892:TAGS="VIEW" :REC-1:Y-10:T-0:GOSUB 906. 

836 LOCATE 8,25:PRINT"What is the Record No. (XX/g-A11)";:COLOR C(2): INPUT MNS 
838 REC=VAL(MNS) : IF ВЕС-й THEN REC-1 

840 TAGS="VIEW":GET #1,REC:IF EOF(1)=-1 THEN CLOSE#1: GOTO 748 

842 PRI(REC)-CVD(PRICS) :M(REC)=CVD (MRENS) : D(REC)-CVD(DEP$) : Q(REC)-CVD (MORT$) :Q1( 

REC)-CVD(MP$) 

844 GOTO 766 

846 COLOR C(2):LOCATE 3,30:PRINT CODS:LOCATE 4,30:PRINT ADR$:LOCATE 5,30:РВІМТ С 
ITYS$:LOCATE 6,39:PRINT STATS$:LOCATE 7,39:PRINT ZIP$:LOCATE 9,3%:PRINT NAM$ 

848 LOCATE 3,63:PRINT UDAT$:LOCATE 4,63:PRINT REC 

850 LOCATE 10,30:РЕТМТ RDATS:LOCATE 11,30:РЕІМТ PHON$:LOCATE 12,30:PRINT USING K 

K$;D(REC):LOCATE 13,30:РЕТМТ USING KK$;M(REC):LOCATE 15,30:РЕІМТ PURS:LOCATE 16, 
39:PRINT USING K$;PRI(REC) 

852 LOCATE 18,10:РЕТМТ LIENS:LOCATE 18,45:PRINT PAYS:LOCATE 18,67:PRINT USING KK 
$;Q(REC) 

854 LOCATE 19,10:РЕТМТ LF$:LOCATE 19,45:PRINT PB$:LOCATE 19,67:PRINT USING KK$;Q 
1(REC) 

856 IF TAGS="CHANGE" THEN 780 

858 LOCATE 24,22:COLOR C(1):PRINT"«N»ext, <P>revious, <M>enu or <C>hange"; 

860 COLOR C(2):ANS-INKEYS:IF ANS="" THEN 860 

862 IF ANS="N" OR ANS="n" THEN 879 

864 IF ANS="p" OR AN$-"P" THEN REC-REC-2:GOTO 870 

866 IF ANS="C" OR AN$-"c" THEN 890 

868 IF ANS="M" OR ANS="m" THEN 876 ELSE 860 

870 REC-REC-1:IF EOF(1)--1 THEN CLOSE#1:GOTO 748 

872 IF REC«Q THEN CLOSE #1:GOT@ 7120 

874 GOTO 840 

876 CLOSE#1:GOTO 748 

878 'SUBROUTINE TO CHANGE DATA 

889 CLS:LOCATE 6,24:COLOR C(1):PRINT"Change Property Information":GOSUB 892:TAG$ 
-"CHANGE":REC-1:Y-10:T-0:GOSUB 908 

882 LOCATE 8,25:PRINT"What is the Record No. ";:COLOR C(2) 

884 INPUT MNS$:REC-VAL(MN$):IF REC<@ THEN 882 

886 GOTO 840 

888 CLOSE #1:GOTO 748 

890 TAGS-"CHANGE":GOTO 766 

892 OPEN"R" ,#1,"A:RENTAL. DAT" , 299 

894 FIELD#1,3 AS COD$,1@ AS UDAT$,25 AS ADR$,15 AS CITY$,2 AS STAT$,5 AS ZIP$, 29 
AS NAM$,8 AS PHONS,8 AS RDAT$,10 AS МЕЕМ5,10 AS РЕР5,10 AS PUR$,19 AS РВІС$,10 
AS MORT$,20 AS ІЛЕМ%,2 AS PAY$,29 AS LF$,2 AS РВ%,10 AS MP$ 

896 RETURN:CLOSE #1:GOTO 748 

898 OPEN "R",£1,"A:JOURN"-MIS$-«*".FIL",70:FIELD #1,3 AS COD$,10 AS CAT$,5 AS DT$,4 
AS DL$,17 AS PDTO$,2@ AS DSC$,11 AS AMT$:RETURN 

900 ATS-INKEYS:IF АТ9="" THEN 900 

902 RETURN 

994 GOTO 26 

906 CLS:LOCATE 6,2@:COLOR C(1):PRINT"Do You Want to See All Files or One Record 
No. 

908 IF CODS(REC)-"" THEN REC=1:RETURN 

910 Y=Y+1:COLOR C(1):LOCATE Y,T+1:PRINT USING K2$;REC:LOCATE Y,T+5:PRINT COD$(RE 
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C):LOCATE Ү,Т%10:РВЕІМТ ADRS (REC) 

912 REC-RECXI:IF Ү>21 THEN Ү-10:Т-40: GOTO 998 

914 60Т0 9028 

916 COLOR C(1):LOCATE 1,6@:PRINT"## |ACCOUNT":I-2 : Y-l 

918 LOCATE L,69:PRINT USING K2$;Y;:LOCATE L,64:PRINT EXS (Y) : L=L+1 : Y=Y+1 
920 IF ЕХ$(Ү)= "" THEN 924 

922 GOTO 918 

924. L=@:GOLOR C(2):RETURN ' 

926 LOCATE 1,61:СОТОВ C(l1):PRINT"## | AGCOUNT":L-2:Y-1l 

928 LOCATE L,61:PRINT USING K2$;Y;:LOCATE L,65:PRINT INS CY) :L=L+1:Y=Y+1 
930 IF INS(Y)-2"" THEN 934 

932 СОТО 928 

934 L=@: COLOR: C(2):RETURN 

936 OPEN"I";*l,"A:SUMMARY.FIL'":RETURN 

938 OPEN"O" #1, "А: SUMMARY, FIL": RETURN: 

940 ON ERROR СОТО 1010 

942: X-0: OPEN" I" |#1 "A: PROPERTY, АСС" 

944 IF ЕОЕ(1)--1 THEN CLOSE#1:GOTO 948 

946 X=X+1:INPUT#L ,; 0005 (X) ,АРЕ5 (Х), NAMS (X) : GOTO 944 
948 X-€9:OPEN"I",*1,"A:INCOME.ACC" 

950 ТЕ ЕОЕ(1)--1 THEN CLOSE&1:GOTO 954 

952 X9XX1:INPUTA1,INS$(X):GOTO 950 

954 X=9: OPEN" 1" #1, "A: EXPENSE, ACC" 

956 ТЕ ЕОЕ(1)--1 THEN CLOSE#1:GOTO 26 

958 XeXX1:INPUTA1,EX$(X):GOTO 956: CLOSE#1: RETURN 
960 CLS: COLOR: С(3) :ТЕ ЕВЕ<>53 THEN 964:LOCATE 5,17: PRINT"Files NOT Found! - Фо 
One of the Following:":LOCATE 9,10: PRINT"<BREAK> Program Execution and Insert Fi 
le Disk іп Drive А" 

962 LOCATE: 11,36:PRINT"or":LOCATE 13,15:PRINT"Select Магы Menu £4 to Set-up Ассо 
апы!!!" 

964 60508 990 :CLOSE:COLOR G(2):GOTO 26 

966 ОРЕМ"О",#1,"А:РЕОРЕВТУ ACC": RETURN 

968 OPEN"I'",31,"A;PROPERTY.ACC":RETURN 

970 OPEN"O" #2, "А: TEMP. ACC" : RETURN 

972 KILL"A: PROPERTY; ACC" 

974 NAME "A: TEMP.ACC" AS "A:PROPERTY.ACC":GOTO 68 БИКЕ 

976 OPEN"O", 1, A:EXPENSE.ACC":RETURN 

978 OPEN"I",*l;"A:EXPENSE.ACC":RETURN 

989  KILL"A;EXPENSE.ACC" 

982 МАМЕ"А:ТЕМР:АСС"А5"А:ЕХРЕМ5Е.АСС":60Т0 56 


984: OPEN"0", #1, "A: INCOME. ACC" : RETURN 
986 ОРЕМ"1“,81,;"А:ІМСОМЕ.АСС”:ВЕТПЕМ 


988 KILL"A: INCOME, АСС" 

990 NAME"A:TEMP.ACC"AS"A:INCOME.ACC":GOTO 56 

992 CLS:LOCATE 5,15:PRINT"PREVIOUSLY ENTERED PROPERTY CODES WILL BE LOST!!" 

994 LOCATE 7,25:PRINT"Do You Want to Continue (Y/N)":COLOR C(2) 

996 AZS$-INKEYS : ТЕ AZ$-"" THEN 996 

998 IF AZ$- "N" OR AZ$- "n" THEN 26 

1000 IF AZ$- "Y" OR AZ$- "y" THEN RETURN ELSE 26 

1002 RETURN | 

1010 ТЕ ERR-71 THEN COLOR C(3):PRINT"PLACE DATA DISKETTE IN DRIVE A":COLOR C(2): 
GOTO 1929 

1011 IF ERR-27 THEN COLOR C(3):PRINT"PRINTER IS OUT OF PAPER - RESTOCK":COLOR C( 
2):GOTO 1020 

1912 IF ERR-61 THEN COLOR C(3):PRINT"DISK IS FULL-INSERT ANOTHER FORMATTED DISK" 
:COLOR C(2):GOTO. 1929 

1013 IF ERR-79 THEN COLOR C(3);PRINT"WRITE PROTECT NOTCH IS COVERED - REMOVE DIS 
K AND REMOVE!":COLOR C(2):GOTO 1929 

1914 IF ERR-53 THEN COLOR C(3):PRINT"IF YOU ARE FIRST TIME USER, YOU WILL ВЕ GOI 
NG TO -Set up Accounts- | IF THIS NOT CORRECT, PLACE CORRECT FILE DIS 
К IN DRIVE А AND RESTART!":COLOR C(2):FOR JJ=1 TO 10000:КЕХТ JJ:GOTO 59 

1019 COLOR C(3):PRINT "ERROR DETECTED - TRY AGAIN!":COLOR C(2):GOTO 26 

1020 LOCATE 24,30:COLOR C(1):PRINT"Hit «ENTER» to Continue";:COLOR C(2):GOSUB 90 РЕМ. 
Q:RESUME 
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LLY | Feature 100 


Three BASIC programs for the time of your life 


Your 100 Takes a Licking 
and Keeps on Ticking 


By Nathaniel F. Ireland 





of time in one-second intervals. For those interested 

in smaller intervals, the BASIC program 77M ER. BA 
(Listing 1) indicates elapsed time in hundredth-second 
intervals. Its accuracy can be adjusted within 0.1 second (* 
or - 0.28 percent) over the program's three-minute 
maximum range. This range can be extended but the change 
produces an increased error percentage, which is directly 
proportional to the increase in range. An increase in range 
to six minutes may produce an inaccuracy of * or - 0.55 
percent. 


[Е Model 100% TIMES function indicates the passage 


The Program 

The heart of the program is the precisely tuned timing 
loop, lines 200 through 230. The timing loop without lines 
210 and 220 runs much too fast; the number of pound signs 
within these lines fine-tune the loop. 

The balance of the program is straightforward and the 
operation of the various sections is described in REM 
statements. These REM statements may be removed from the 
program to conserve memory. 


Fine Tuning the Timing Loop 

Run the calibrate feature listed on the menu by pressing 
‘T’. Do this several times. If the number of counts per second 
is consistently less than 100, slowly decrease the number of 
pound signs in lines 210 and 220 until the count just equals 
100. Run the calibrate feature several times. If the count 
per second consistently equals 100, the loop is fine-tuned. 
If the counts do not equal 100, decrease the number of 
pound signs very slowly until they do. 

If the count is 100 or greater, increase the number of 
pound signs until the count drops below 100, then proceed 
as above. 


Increasing the Program's Range 
The maximum range of the program is determined by the 


Nathaniel Ireland, now a retired gentleman farmer, was an 
engineer in the electronics industry for many years. In 
addition to his agricultural hobby, he finds time to enjoy 
his computers and do some consulting work. 
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right-most value of NN in Line 130. For each increase of 
6,000 in the value of NN, the program's range is increased 
by one minute. Don't forget to increase the value in Line 
410 by a like amount. 


Hæ: you wondered if your vehicle’ speedometer is 
accurate? STIMER.BA (Listing 2) and your Model 
100 can answer this question. There are two more requisites: 
a road with a measured mile and someone to assist you. If 
you don't know of a measured mile near you, your state 
police can provide this information. Some states have mile 
posts that can also be used. For safety's sake, the other 
person should either drive the vehicle or operate the Model 
100. 


Using the Program 

After loading STIM ER. ВА, check its calibration using 
the “Т? function. While driving, bring your vehicle up to 
about 40 mph before approaching the start of the measured 
mile. As your vehicle passes the starting point, tap the 
Model 100 space bar. Carefully hold the vehicle's speed 
constant and press the space bar again as the vehicle passes 
the end of the measured mile. Your Model 100 automatically 
writes the calculated miles-per-hour rate to RAM using the 
name RUN 1.00 and resets itself for a run at another speed 
through the measured mile. Write down or remember your 
speedometer reading of the first run. 

Make another run through the measured mile at another 
speed, say 55 mph, following the same procedure. This time 
the Model 100 stores the data in RAM as RUN 2.DO. 
Successive runs can be made in a like manner. The text files 
in RAM can later be compared with your speedometer 
readings to yield an accurate calibration of your vehicle's 
speedometer. 


У БР ai for athletic events in which the contestants 
compete against time, ETIM ER. ВА (Listing 3) keeps 
their individual times for comparison at the end of the event 








|| 
| 


to determine placing. Examples of such events would be 
downhill and slalom in skiing and barrel racing in rodeo. 
Program Operation 

When ETIMER. ВА is run, it first asks for the event title. 
In a maximum of five letters, enter the event name. If the 
RAM storage option is selected later, this name with the 
„00 extension will be the name of the test file for the event. 

The second question asked is the contestant's identifier 
(use up to a maximum of 10 characters). Once this is 
entered, the timing mode for the contestant is enabled. Tap 
the space bar to start the timer, then tap the space bar again 
to stop the timer. The Model 100 records this data into an 
array and returns to the second question for another 
contestant's identifier. 

When all the contestants for the event have been timed, 
enter END to the second question. The program sorts the 


Listing 1: 





10 CLS 

20 PRINTQ19,'"* INTERVAL TIMER *" 

30 PRINT: PRINTTAB(4)"Tap space bar to st 

art TIMER." 

50 PRINTTAB(4)"Tap space bar again to st 

op TIMER." 

60 PRINT: PRINI" or Tap <T> key to check 

TIMER cali- bration. Wait 30 sec 

onds." 

70 ' Written by М. F. Ireland, January 2 

4, 1985 

100 REM START TIMER, TIMER LOOP & STOP 
TIMER 

110 AS-TIMES 

120 X$-INKEY$:IFX$-""THEN119 


139 IFX$-"T"THENNN-399gELSENN-18999 
200 FORN=LTONN 

210 сӛ-"ннннннннннннн" 

220 рӯ" ннн" 

239 Y$-INKEY$:IFYS-""THENNEXT 

249 B$-TIMES 


39g 


31g 


REM COMPUTE PULSE COUNT/SECOND, 
DISPLAY & END 
IFX$="T" THEN32GELSE419 
329 N=N-1 
330 T1=VAL(RIGHTS$(B$,2)) :T2=VAL(RIGHTS(A 
$,2)):IFT1<T2THENT1=T1+69 
350 ET-T1-T2 
360 CO=N/ET 
37) CLS:PRINTQ85,"COUNTS = "CO" PER SECO 
ND.":PRINT:PRINT"THIS COUNT MUST ВЕ 100. 
IF NOT, INTERNALPROGRAM ADJUSTMENT MAY 
BE REQUIRED. TRY":PRINT"IT AGAIN. PRESS 
«F4» TO RE-RUN TIMER." 
380 END 
400 REM OUT OF TIMER RANGE DISPLAY & 
END 
419 IFN>189Q@THENCLS: PRINT@249, "ELAPSED 
TIME OUT OF RANGE OF TIMER.":BEEP:END 
599 REM COMPUTE & DISPLAY ELAPSED TIME 





array in ascending order according to their times and creates 
anew array. The program prints the new array on the screen, 
indicating the contestant’s identifier, the respective time and 
place in the event. 

A question to record the array data to RAM is then asked. 
An*N'(no) answer returns the program to the first question. 
An END response returns you to the Model 100's menu. A 
new event title restarts the program. 

А ‘Y’ (yes) answer to this question records the array data 
to RAM using the event title in the first question with the 
.DO extension, then the program returns to the first 
question. 

The data file recorded to RAM can be viewed and sent 
to a printer in a 40-column format (use SHIFT PRINT). In 
addition to the information seen on the screen display, the 
date and time of day are recorded and sent to the printer.L] 


51) N=N-1:SE=N/199: IFSE>59THENMI=FIX(SE/ 
69) : SE=SE- (69*MI) 

520 CLS:PRINT@129,"ELAPSED TIME ="MI"MIN 
UTE, "SE"SECONDS . " : PRINT: PRINT: PRINT" PRES 
S «F4» TO RE-RUN TIMER.":END 


| арро ТТТ | 
|| PCM, ШІПППІШІШ | | 
5 MAXFILES-1:NT-1 


12 CLS 
20 PRINT@4,"%* SPEEDOMETER CHECK TIMER * 
n" . 





Listing 2: 





30 PRINT:PRINTTAB(4)"Tap space bar to st 

art TIMER." 

59 PRINTTAB(4)"Tap space bar again to st 

op TIMER." 

60 PRINT: PRINT" or Tap <T> key to check 

TIMER cali- bration. Wait 39 sec 

onds." 

70 ' Written by N. F. Ireland, January 2 

4, 1985 

100 REM START TIMER, TIMER LOOP & STOP 
TIMER 

112 А5=ТТМЕ5 

120 X$-INKEYS:IFX$-""THEN119 

13) ІЕХ%-"Т"ТНЕМММ--300)Е1,5ЕММ-18000 

20 FORN=1TONN 

210 сӛ-"тннннниннннннннн" 

220 D$-'4HHHHHHHER" 

239 Y$-INKEY$:IFY$-""THENNEXT 

249 BS=TIMES 

300 REM COMPUTE PULSE COUNT/SECOND, 
DISPLAY & END 

319 IFX$="T"THEN329ELSE419 

329 N-N-1 

33% TI=VAL(RIGHTS (B$,2)):T2=VAL(RIGHTS(A 

$,2)) : IFTL<T2THENT1=T1+69 

359 ET=T1-T2 

369 CO=N/ET 

379 CLS:PRINT@85,"COUNTS = "CO" PER SECO 

ND.": PRINT: PRINT"THIS COUNT MUST BE 100. 

IF NOT, INTERNALPROGRAM ADJUSTMENT MAY 
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ВЕ REQUIRED. TRY":PRINT"IT AGAIN. PRESS 
«F4» TO RE-RUN TIMER." 

38g END A 
400 REM OUT OF TIMER RANGE DISPLAY & 

END 

410 IFN>189Q9QTHENCLS : PRINT@249, "ELAPSED 
TIME OUT OF RANGE OF TIMER." : BEEP :END 
500 REM COMPUTE ELAPSED TIME 

510 N-N-1:SE-N/199: IFSE>59THENMI=FIX(SE/ 
60): SE-SE- (69*MI) 
600 REM COMPUTE MPH, RECORD DATA TO RAM 
AND RE-RUN PROGRAM Ë 
619 SC-N/1gg:MPH-1/(SC/3699) 
620 OPEN"RAM:MPH'"4STRS (NT) +". DO" FOROUTPU 
TAS1 
630 PRINT#1," 

"SECONDS" 
640 А5-" 
SING"N 

$,MPH 

650 CLOSE: NT-NT41:GOTO1g 


TIME = "МІ" MINUTES," SE 


MILES PER HOUR ="; PRINT#1,U 
N жне ##" A 


Listing 3: 


5 MAXFILES-1: : DIMGI$ (29) , CES, 
E(29) ,DO(29) , SE(28) ,SC(29) ; 
19 CLS 

15 CLS:PRINT@13, "EVENT TIMER": PRINT@12¢, 
У INPUT“ ENTER, EVENT TITLE: (5 CHRS МАХ)"; 
ET$: CLS) TIFLEN(ET$)>5THENL5SELSELFETS="END 
“THENMAXFILES=@ : MENU 

20 PRINTQ13,"* EVENT TIMER, ж" 

25 PRINT:INPUT"ENTER CONTESTENT IDENTIFI 
ER (19 CHRS MAX) ";CI$:CLS:PRINTQ15,CI$: 
IFCISS"END'THEN790 

39 PRINTTAB(4)"Tap space bar to start TI 
МЕК" 

5) PRINTTAB(4)"Tap space bar again to st 
ор TIMER." ': 

6) PRINT:PRINT" or Tap «T» key to check 

TIMER са11- bration. Wait 39 sec 
onds." 

78 ' Written by М, F. Ireland, January 2 
4, 1985 

10) REM START TIMER, TIMER LOOP & STOP T 
IMER 

119 AS=TIMES ; 

120 Х9-ІМКЕҮ9: FREUD 

139 IFX$="'T"THENNN=399QELSENN=18999 

220 FORN-ITONN 

212 CSS ЊЕНИ ЊЕНЕ" 

220 DS=" HHH" 

230 ҮЗ-ІМКЕҮ9: IFYSe"  THENNEXT 

240 В9=ТІМЕ$ 

300 REM COMPUTE PULSE COUNT /SECOND ; DISP 
LAY & END 

310 IFX$-"T"THEN329ELSEA419 

320 N-N-1 


(20) ,MI(2]),M 
р(20) 
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33) T1-VAL(RIGHTS(B$,2)): T2-VAL(RIGHTS (A 
$,2)) : IFT1 «T2THENT1-T1469 
350 ET-T1-T2 
360 CO-N/ET 
370 CLS:PRINTQ85,"COUNTS = "CO" PER SECO 
ND.":PRINT:PRINT"THIS COUNT MUST BE 199. 
IF NOT, INTERNALPROGRAM ADJUSTMENT MAY 
BE REQUIRED. TRY":PRINT"IT AGAIN. PRESS 
«F4» TO RE-RUN TIMER." 
389 END 
400 REM OUT OF TIMER RANGE DISPLAY, BEEP 
& RE-RUN 
419 IFN-1899gTHENCLS:PRINTQ249 ; "ELAPSED 
TIME OUT OF RANGE OF TIMER.":FORD-9T029: 
BEEP: NEXTD : RUN 
500 REM COMPUTE & DISPLAY ELAPSED TIME 
510 N=N-1:SE=N/199:SC=SE: IFSE»59THENMI-F 
IX(SE/69) : SC-SE- (69%MI) 
520 CLS:PRINTQ129,"ELAPSED TIME -"MI"MIN 
ОТЕ, "SC"SECONDS . " : FORD=9T01999 : NEXT 
600 REM STORE CONTESTANT INFORMATION 
610 JeJ41:CI$(J)eCIS:MI(J)-MI:SC(J)-SC:S 
E(J)=SE 
670 IFJ=NCTHEN7@GELSECLS : G0TO25 
799 REM SORT ARRAY 
705 Q=1 
719 FORSJ-1TOJ 
720  FORIJ-1TOJ 
732 IFSE(SJ)>SE(IJ) THENQ=0+1 
740 МЕХТІЈ 
750 DO(Q)-Q: CES (Q) -CI$ (SJ) : ME(Q) -MI(SJ): 
SD(Q)-SC(SJ) :Q-1 
760 NEXTSJ 
800 REM PRINT SORTED ARRAY 
810 CLS 
820 FORNN-1TOJ 
830 PRINTUSING" ## \ \ ж, 
##, .##";DO(NN) , CES (NN) , ME(NN) , SD(NN) : 
сс=сс+1 
849 IFCC-7THENINPUT"PRESS ENTER TO CONTI 
NUE"; 008 :CLS:CC-g 
85g NEXTNN 
860 PRINTQ129,;:INPUT"RECORD TO RAM (Y/N 
)";OPS$:IFOPS-"Y"THEN9UELSEIFOPS-"N'"THEN 
RUNELSE869 
900 REM RECORD DATA TO RAM 
910 ОРЕМ"ВАМ:"+ЕТ9+" . DO" FOROUTPUTAS1 
915 PRINT#1," "SETS" EVENT" 
917 PRINT#1," 
": TIMES 
920 PRINT#1,USING"\ NN NN 
\\ \";" PLACE" , "CONTESTANT" 
Hi MIN " ы " SEC " 
939 FORSR-1T0J 
940 PRINT#1,USING" #, X 
#, ж, 48" LDO(SR) , CES(SR) , MECSR) , 
SD(SR) 
959 NEXTSR 
960 CLOSE:RUN ECM] 


" ;DATES jn" 








ІШЕ Feature 1000 


Make melodies to soothe the savage 
hacker... 














By Jerry Stajduhar 








he Music Machine allows the 

user to create, modify and save 

songs using a symbolic notation 
and a full screen editor. After the song 
has been completed, Music Machine 
draws the notes, and if the user has 
access to a Radio Shack CGP-220 
printer, the music sheet can be printed 
(see Figure 1). The program was written 
in BASIC on a single drive Tandy 1000 
with 256K RAM. The Music Machine 
was written using a monochrome mon- 
itor. The colors were chosen to make the 
most pleasing monochrome display, but 
may need to be changed slightly for 
color monitors. 


Program Operation 

The Music Machine is controlled by 
a main menu that allows direct access 
to all of the program’s functions (see 
Figure 2). The first menu selection 
allows the creation of a totally new 
song. When this option is chosen, the 
computer blanks the screen and locates 
а cursor at the upper left of the screen. 
This is the display for the creation of a 
song (referred to as a music table). In 
this mode the program works as a 
simple text editor. The cursor can be 
moved in any direction by the arrow 
keys, and the insert, delete and back- 
space keys all work as normal. 

To create a music table is very simple. 


Jerry Stajduhar is a field engineer and 
is currently working on his bachelor’s 
degree in computer science. 
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The syntax for entering notes is exactly 
the same as that used for the BASIC PLAY 
statement. For example, to play the 
whole notes A, F and G you simply 
enter RFG on the music table. To indi- 
cate a half note, follow the note with a 
*2' (A2) — use 4, 8, 16, 32 or 64 for other 
note values. Sharps are indicated with 
a ‘#’ and flats with a '-'. There are 
numerous different symbols the pro- 
gram recognizes; they are all listed 
under the PLAY command in the BASIC 
reference guide that comes with your 
computer. I will not list them here (the 
Tandy manual does a very good job of 
describing them), but I will mention a 
few warnings: 


• The lowest note that can be played 
is ‘A’ in octave ‘0’. 

• <> сап be used to raise the octave, 
but is not mentioned. 

€ ‘<’ can be used to lower the octave. 

е Each octave starts with “С” апа 
ends with ‘B’. 

€ There are some combinations the 
computer can play but the program 
will not draw under menu option 
six (for example, 1/32 rest). This 
does not cause an error — it just 
won't be drawn. 

€ Use capital letters when creating 
the music table, otherwise the pro- 
gram will not draw the notes. 

€ The notes, sharps and flats, dots 
and values must be entered in a 
certain order if more than one is 
used on the same note. The order 
that works on my computer is: 
NOTE SHARP/FLAT VALUE DOT. 

€ This program recognizes a space as 
the end of the table. As soon as the 
program encounters a space, it 
ignores the rest of the table. There- 
fore, do not embed spaces in the 
music table. 

е The music table is only one page 
long. There is no way to switch to 
another page to lengthen the song. 
The music table allows a maximum 
of 800 symbols. 

© Typing > erases the entire table. 

If you have a very long song, the 

insert and delete functions may 

take a few seconds to work. 

The program saves all songs in the 

subdirectory \MUSIC\. This must 

be created on each disk the music 
program is on. To create the direc- 
tory type MKDIR “\MUSIC” from 
the BASIC OK prompt. This must be 
done prior to using the program the 
first time. 

Once you have created the table, 
press ENTER to exit to the main menu 
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(Figure 3 is a sample music table for the 
song *America the Beautiful"). 

The next menu option allows you to 
play the music table that is currently in 
memory. This selection has two options. 
If you enter a ‘2’, the song is played 
immediately. If you enter a “-2” the 
music table is displayed while the song 
is being played. This is very useful if you 
are trying to debug a song since you can 
follow the notes that are being played. 

If the program detects an invalid 
symbol in the music table, it will not 
play the song, instead it displays the 
message: ***ERROR DURING MUSIC 
PLAY***. If this occurs, you need to 
look through the music table to find 
what is wrong. As mentioned, the order 
of sharps and flats and other note 
modifiers is important. Periodically, 
BASIC appears to do nothing when you 
select option two. This is because the 
program requires a lot of string space 
to play the song, and BASIC must make 
the space available. The only solution is 
to wait the few seconds required until 
the program responds to the play op- 
tion. 

Menu options three, four and five are 
used to maintain disk files of the songs 
you have created. АП three of these 
work the same way with simple prompts 
that are self-explanatory. If you acci- 
dentally select one of these options, you 
can exit by entering a capital X. They are 
all error trapped to protect against 
mistakes that could bomb the program 
and cause the music table to be lost. 

Menu option six allows you to con- 
vert the music table to regular sheet 
music. When making this selection, you 
are asked a few questions that are used 
to set up the music sheet. The first query 
is ENTER FIRST POSITION. This is a 
number from zero to 800 that indicates 
the note the music sheet will start with. 
The program only prints one screen of 
music at a time. If your song requires 
multiple screens to display the entire 
song, then each screen has to be printed 
individually, starting at a different first 
position each time (when exiting this 
option, the computer displays the 
number of the last note it drew at the 
bottom of the screen). 

The next prompt is ENTER NOTE 
SEPRRRTION. At this prompt, enter a 
number greater than or equal to zero. 
The larger this number, the more space 
there is between each note. This is useful 
to allow room to write words under the 
music if it is printed on a printer. This 
is also useful because the program does 
not draw the clef or separate the music 
into measures; this allows the space 
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needed to add these things. 

The final question is DO YOU WANT 
PRINTOUT COLORS (Y^N). This ques- 
tion sets the background and fore- 
ground colors. If you have a CGP-220 
printer, you need to use the printout 
colors, or you waste a lot of ink when 
the computer prints the screen. If you 
are planning to print the music, the 
screen dump routine that is included 
with the operating system has to be 
used. Using the screen dump requires 
that you load the graphics program 
before entering BASIC: From the DOS 
prompt, type GRAPHICS and press 
ENTER. Then, when you have the music 
sheet on the display (using the printout 
colors) press SHIFT PRINT. This copies 
the screen display to the printer. To 
return to the main menu press any key 
when the music sheet is finished being 
drawn on the screen. 

The “Return to Table" selection 
(option seven) takes you back to the 
music table that is currently in memory 
so it can be edited. This selection works 
exactly like option one except it does 
not clear the table before returning to 
the text editing mode. 

Option eight allows you to name the 
song you have created. This name is 
only used at the top of the screen when 
the music sheet is printed. The name can 
be up to 30 characters long. The default 
name is “not named." Option nine 
executes the complex BASIC statement 
— END. 

Final Comments 

The Music Machine is an enjoyable 
program to play with. It allows you to 
create music or listen to old favorites 
(though it is a little bit of work to 
convert the sheet music to music table 
symbology). The program should be 
able to accommodate any changes in 
BASIC that Tandy might come out with. 
The PLAY statement, which is the heart 
of this program, currently does not 
allow use of the multiple voices the 
computer can generate. But, if Tandy 
decides to include that in future versions 
of the language, the program should be 
able to use it (due to the free-format text 
editing mode). 

Although I had a great time writing 
this program and I think it is fun to use, 
I have something to admit. . . I am not, 
and never have been, very good at 
music. I can barely read music and 
certainly cannot play an instrument. 
Therefore, there are probably things 
about this program that will irritate 
someone who is good at music. If I have 
made some glaring error, I hope one of 
the experts in the field will let me 
know! О 
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Figure 1: Sample Printout 
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Figure 2: Main Menu 
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Figure 3: Music Table 
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The listing: 


19 ВЕМ FER IEE СУУУ EEE EEE FTE EEE КА EH EE ETE ETE TE IE EE 

29 REM **** THE MUSIC BOX ВУ JERRY STAJDUHAR **** 

39 REM **** FOR THE TANDY 1000 WITH 256K AND 1 DRIVE**** 

40 ВЕМ МОМ IER ДК ДНИ КО КИ КУКА vedete 

59 SCREEN 0 

60 CLEAR ,,,32768! 

70 SCREEN 5 

89 CLS 

90 REM **** MUSIC SYMBOL ARRAYS **** 

100 DIM WHOLE(74) ,HALF(74) ,QUARTER(74) , EIGHTH(74) , SIXTEEN(74) , SHARP(74) , FLAT (74) 
;REST(74) ,QREST(74) , EREST(74) , SREST(74) , DOT (20) 

110 KEY OFF 

129 REM **** DEFAULT SONG NAME **** 

130 MNAMES-"NOT NAMED" 

140 REM **** ASCII VALUES FOR ARROW KEYS **** 

150 UPS$=CHR$ (@)+CHRS$ (&H48) 

169 DOWNS=CHRS (@)+CHRS (6850) 

170 RIGH$=CHRS (@)+CHRS (&HAD) 

180 LEF$-CHR$(9)-4CHR$ (&HAB) 

190 REM %%%% ARRAY FOR NOTES **** 

200 DIM MUSICS(891) 

210 REM **** MAIN MENU **** 

220 LOCATE 1,1,@:PRINT" THE MUSIC MACHINE" 

230 FOR X-9 то 899:MUSICS(X)-" ":NEXT X:CLS 

240 CLS:LOCATE 1,1,1:COLOR 15,9 

250 LOCATE 29,1,1:PRINT "NAME = "MNAMES:LOCATE 1,1,1:COLOR 15,0 

260 PRINT"1) CREATE MUSIC TABLE":PRINT"2) PLAY MUSIC TABLE "CHR$(241):PRINT"3) S 
AVE MUSIC TABLE":PRINT "4) LOAD MUSIC TABLE":PRINT"5) ERASE MUSIC FILE";PRINT"6) 
DRAW MUSIC SHEET" 

270 PRINT"7) RETURN TO TABLE":PRINT"8) CHANGE NAME":PRINT "9) END": PRINT 

280 INPUT X:IF (Х<-9 AND X29) OR X--2 THEN 290 ELSE CLS:GOTO 260 

290 2-0:71-0 

300 ON ABS(X) GOTO 320,540,900,1020,1150,1440,1210,1910,1220 

310 REM **** CREATE TABLE **** 

320 CLS 

339 X=0:WHILE М081С9(Х)<>" ":MUSICS(X)-" ":X-X41:WEND 

340 PRINT CHR$(177);:LOCATE 1,1,1 

350 LOCATE 22,1:PRINT"ENTER = EXIT ^ = ERASE":ROW-l1:COL-1 

360 LOCATE ROW,COL,1 

370 REM **** SCAN KEYBOARD **** 

380 KEYBDS-INKEYS 

399 IF KEYBDS-"" THEN 380 ELSE IF KEYBD$-"^" THEN FOR Х-0 TO 891:MUSICS(X)-" "N 
EXT X:GOTO 320 

400 REM **** ARROW KEYS ЖЖ 

410 IF KEYBD$=LEF$ THEN MOVEMENT=1:IF COL>1 THEN COL-COL-1 ELSE IF ROW>1 THEN CO 
L=4%:ROW=ROW-1 ELSE COL-49:ROW-20 

420 ТЕ KEYBD$=RIGH$ THEN MOVEMENT-1:IF COL«4Q THEN COL-COL«1 ELSE IF ROW«20 THEN 
COL=1:ROW=ROW+1 ELSE COL=1:ROW=1 

430 IF KEYBDS-UPS THEN MOVEMENT-1:IF ROW >1 THEN ROW-ROW-1 ELSE ROW-29 

440 ТЕ KEYBDS-DOWNS THEN MOVEMENT-1:IF ROW<2@ THEN ROW=ROW+1 ELSE ROW=1 

450 REM **** DELETE/INSERT/ENTER/BACKSPACE ****& 

460 IF KEYBD$=CHR$(127) THEN X=((ROW-1)*4@)+(COL-1) !Z=ROW:Z1=COL: WHILE MUSICS (X+ 
1)" ":MUSICS(X)-MUSICS(X41):X-X41:WEND:MUSICS(X)-" ":CLS:LOCATE 1,1,1:G0TO 121 


g 
470 IF KEYBDS$-CHR$(18) THEN X-((ROW-1)*40)4(COL-1):MUSICS(809)-" ":Z=ROW:Z1=COL: 
Y-X:WHILE М05165(Х)<>" ":XeX41:WEND:WHILE X-»Y:MUSICS(X41)-MUSIOS(X):X-X-1:WEND: 
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MUSIC$(Y)-"*":CLS:MUSICS(89g)-" ":LOCATE 1,1,1:GOTO 1219 


480 IF KEYBDS-CHR$(13) THEN CLS:GOTO 259 


490 IF KEYBDS-CHRS$(8) THEN LOCATE ROW,COL:PRINT " ™;:MUSIC$(((ROW-1)*49)+(COL-1) 


у=" ":KEYBDS-LEF$:GOTO 410 


500 LOCATE ROW,COL,1 

510 IF MOVEMENT <>1 THEN MUSICS(((ROW-1)*40)4(COL-1))-KEYBDS:PRINT KEYBDS$; :KEYBD 
S$-RIGHS:MOVEMENT-0:GOTO 410 ELSE MOVEMENT-0 

529 GOTO 389 

530 REM **** PLAY MUSIC **** 

549 AS-"":BSe"":cSe"'":p$er": FOUNDEND=@ : Y-0 : PB-0 : РС=: PD=@ 


550 IF Хед THEN X-9:CLS:LOCATE 1,1,0:WHILE MUSICS(X)«»" ":PRINT MUSIC$(X);:X-X41 


“МЕМ ELSE LOCATE 22,1,9:PRINT'"** PLAYING **" 

560 REM **** BUILD STRINGS A,B,C,D OF 200 CHARACTERS EACH %%%%: 

570 FOR X=Y TO 200 

580 IF MUSICS(X)-" " THEN FOUNDEND-1:X-291 ELSE AS-AS4MUSIC$(X) 

599 NEXT X 

600 Y-291 

610 IF FOUNDEND<>1 AND MUSICS(Y)«»" " THEN IF MUSICS(Y)«CHR$(65) OR MUSICS(Y)»CH 


;R$(99) THEN AS=AS4+MUSIC$(Y) :Y=¥+1:GOTO 619 


620 IF MUSICS(Y)-" " THEN FOUNDEND=1 

639 IF FOUNDEND-1 THEN 820 ELSE РВ-1 

640 FOR Х-Ү TO 400 

650 IF MUSICS(X)-" " THEN FOUNDEND-1:X-491 ELSE B$-B$4MUSICS(X) 

660 NEXT X 

670 Ү-401 

680 IF FOUNDEND<>1 AND MUSICS(Y)«»" " THEN ТЕ М05109(Ү)<СНВ5(65) OR MUSICS(Y)»CH 
R$(99) THEN B$-BS4MUSICS(Y):Y-Y41:GOTO 680 

690 IF MUSIC$(Y)-" " THEN FOUNDEND-1 

700 IF FOUNDEND-1 THEN 820 ELSE РС-1 

719 FOR X-Y TO 699 

720 IF MUSICS(X)-" " THEN FOUNDEND-1:X-691 ELSE C$2C$4MUSICS$(X) 

730 NEXT X 

740 Ү-601 

750 IF FOUNDEND<>1 AND М051С9(Ү)<>" " THEN IF MUSICS(Y)«CHR$(65) OR MUSIC$(Y)>CH 
R$(9U0) THEN C$-CS4MUSICS(Y):Y-Y41:GOTO 750 

760 IF MUSICS(Y)-" " THEN FOUNDEND-1 

770 1F FOUNDEND-1 THEN 829 ELSE PD-1 

789 FOR X-Y TO 800 

790 IF MUSICS(X)-" " THEN FOUNDEND-1:X-891 ELSE D$-D$4MUSIC$(X) 

800 NEXT X 

810 REM **** SET ERROR TRAP *#** 

820 ON ERROR GOTO 880 

839 REM *ee** PLAY MUSIC STRINGS ж» 

840 PLAY AS:IF РВ-1 THEN PLAY B$:IF PC-1 THEN PLAY C$:IF PD-1 THEN PLAY D$ 

850 ON ERROR GOTO Ø 

860 CLS:GOTO 259 

870 REM **** ERROR DURING PLAY **** 

880 PRINT: PRINT"***ERROR DURING MUSIC PLAY***":PRINT"***INVALID CHARACTER**%" IN 
PUT "PRESS ENTER TO CONTINUE";A$:CLS:LOCATE 1,1,1:RESUME 1210 


|890 REM **** SAVE FILE UNDER SUB-DIRECTORY "MUSIC". ж 
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900 CLS:PRINT"ENTER FILE NAME TO SAVE THIS UNDER (XSEXIT)": INPUT A$:IF А5-” 
X" THEN CLS:GOTO 260 

910 ON ERROR GOTO 1000 

920 AS="MUSIC\"+A$:PRINT A$;OPEN "O",1,A$ 

930 X=ø 

940 WHILE MUSICS(X)<>" " 

950 PRINT #1, CHRS(34) ; MUSICS (X) ; CHR$ (34) ; 

960 X-X41:WEND 

970 CLOSE 1 
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CLS:GOTO 260 

1000 PRINT"ERROR HAS OCCURED DURING WRITE":INPUT "PRESS ENTER TO CONTINUE'";A$:CL 
OSE:RESUME 900 

1010 REM **** LOAD FILE FROM DISK **** 

1020 CLS:FILES "\MUSIC\":PRINT:PRINT"ENTER FILE TO LOAD (Х-ЕХІТ)":ІМРУТ AS:IF A$ 
-"X" THEN CLS:GOTO 249 

1030 FOR X-9 TO 899:MUSICS(X)-" ":МЕХТ X 

1040 ON ERROR GOTO 1130 

1250 AS="MUSIC\"+A$ :X=0 

1060 OPEN "I",1,A$ 

1070 WHILE NOT EOF(1) 

1080 INPUT %1,М051С9(Х) 

1090 REKEL 

1100 МЕМ) 

1110 CLOSE *1:MNAMES-RIGHT$ (AS, (LEN(A$) -6)) 

1120 ON ERROR GOTO 9:GOTO 240 

1139 CLS:PRINT"ERROR OCCURED DURING READ":INPUT"PRESS ENTER ТО CONTINUE" ;A$:RESU 
ME 1929 

1149 REM **** ERASE A FILE FROM DISK ¥*** 

1150 CLS:FILES "NMUSICN":PRINT:PRINT"ENTER FILE TO ERASE (X-EXIT)":INPUT AS 

1160 IF AS-"X" THEN CLS:GOTO 259 

1170 ON ERROR GOTO 1200 

1180 AS="MUSIC\"+A$:KILL AS 

1199 ON ERROR GOTO 0:С1.5:С0Т0 250 

1200 PRINT"***FILE NOT FOUND***"; INPUT "PRESS ENTER TO CONTINUE"; AS:RESUME 1150 

1210 ON ERROR GOTO @:CLS:X=@:LOCATE 1,1:WHILE MUSIC$(X)<>" "; PRINT MUSICS(X);:X- 
X+1:WEND: IF Z*Z1-0 THEN GOTO 350 ELSE ROW-Z:COL-Z1:2-9:21-0:GOTO 360 

1220 END 

1230 REM **** SUBROUTINE TO CREATE THE NOTES AND STORE THEN IN ARRAYS ж 

1240 CIRCLE (199,190) ,2 

1250 СЕТ (98,89) - (178,192) , WHOLE 

1260 ІЛМЕ (102,10) - (192,89) 

1270 СЕТ (98,89)-(198,192), HALF 

1280 PAINT (100,100) 

1290 СЕТ (98,89)-(198,192) , QUARTER 

1300 X-193:Y-91:GOSUB 1400:СЕТ (98,89)-(108,102),ЕТСНТН 

1319 X-193:Y-94:GOSUB 1400:СЕТ (98,89)-(108,102),5ІХТЕЕМ 

1320 CLS:LINE(199,95)-(199,105) : LINE(194,95) - (104,105) : LINE(98,99)-(106,97) : LINE 
(98,103) - (106,171) :6ЕТ(98,95) - (108,105) , SHARP 

1339 CLS:PSET(99,192):PSET(109,1902) : PSET(1901,101) : PSET(192,1090) :PSET(102,99) : PSE 
T(191,99):PSET(190,98):PSET(99,98) :11МЕ(98,102)- (98,93) : GET(98,89) - (108,192) , FLA 
T 

1340 CLS:LINE(98,99)-(192,101),,BF:GET (98,89)-(108,102) , REST 

1350 СІ,5:Р5ЕТ(98,90):Р5ЕТ(99,91):Р5ЕТ(100,92):Р5ЕТ(99,93):Р5ЕТ(98,94):Р5ЕТ(99,95 
):PSET(100,96):PSET(101,97):PSET(100,97) : PSET(99,97) : PSET(98,98) : PSET(99,99) : GET 
(98,89) - (178,192) , QREST 

1360 CLS:LINE (195,93)-(195,101):X-1901:Y-95:GOSUB 1429:GET(98,89) (108,192) ERES 
T 

1370 X-191:Y-99:GOSUB 1429:GET (98,89)-(108,102),5ВЕ5Т 

1389 СІ,5:Р5ЕТ(100,100) :PSET(101,190) : PSET(190, 191) : PSET(101,101) :GET(98,98) -(191. 
,1@1) , DOT 

1390 RETURN 

1400 PSET(X,Y):PSET(X,Y-1):PSET(X*1,Y) : PSET(X42,; Y+1) ; РБЕТ(Х+3,У+2) : PSET (X+3 , Y+3) 
:PSET(X+4 , ¥+4) : PSET(X+4 , Y+5) 

1410 RETURN 

1420 CIRCLE (X,Y),1:PSET(X-1,Y):PSET(X*2,Y):PSET(X*3,Y-1) : RETURN 

1430 REM **** DRAW THE SHEET жижу 

1440 Z1-1:CLS:PRINT"ENTER FIRST POSITION":INPUT 21:1Е 21>0 THEN 21-21-1 

1450 SEP=@:PRINT"ENTER NOTE SEPERATION":INPUT SEP 
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1480 PRINT" 


1460 INPUT "DO YOU WANT PRINT-OUT COLORS (Y/N)";AS;IF A$«»"Y" THEN AS="N" 
1470 NLEN-20- (LEN(MNAMES)/2) : LOCATE 19, 1,9 


WORKING": IF AS="N" THEN COLOR 15,0:GOSUB 1249:CLS:COLOR 9 


‚Я ELSE COLOR 5,15:CLS:GOSUB 1249:CLS:COLOR 1,15:PAINT (19,19),15:LOCATE 1,NLEN, 
Q:COLOR 15,1:PRINT " "MNAMES" ";:COLOR 1,15 

1490 LENGTH=319 :MAXX=295 

1500 IF A$-"N" THEN GOSUB 1889 

1510 LOCATE 1,1,9::X-29:Y-44:T-Z1:OFFSET-9;POSN-Q:lF A$-"N" THEN PRINT TAB(NLEN) 


;MNAMES 


1520 REM **** LOOP TO POSITION THE NOTES **** 
1539 WHILE MUSIC$(T)<>" " 
1540 IF ХРМАХХ THEN X-20:Y-Y445:IF У>200 THEN TEMPS-MUSICS(T):FLG-1:MUSICS(T)-" 


";сото 1600 


1550 IF MUSIC$(T)>={"A" AND MUSICS$(T)<="G" THEN GOSUB 1640:GOTO 1600 
1560 IF MUSICS(T)-"P" THEN GOSUB 1810:GOTO 1600 

1570 IF MUSICS(T)-"«" THEN OFFSET-OFFSET421:T-T41:GOTO 1600 

1580 IF MUSIC$(T)=">" THEN OFFSET-OFFSET-21:T-T41:GOTO 1609 


1599 T=T+1 


1600 WEND: IF FLG-1 THEN FLG-:MUSICS(T)-TEMP$ 
1610 IF Аб-"Ү" THEN GOSUB 1880 


1620 WHILE INKEY$-"":WEND:COLOR 15,0:CLS:LOCATE 25,1:PRINT STRINGS(4@,32);:LOCAT 
E 18,1,1:PRINT "END -"T:GOTO 250 

1630 REM **** POSITION OF INDIVIDUAL NOTES **** 
1640 IF MUSICS(T)-"C" 

1650 IF MUSICS(T)-"D" 

1660 IF MUSICS(T)-"E" 

1670 ТЕ MUSICS(T)-"F" 

1680 IF MUSICS(T)-"G" 

1690 IF MUSICS(T)="A" 

1700 IF MUSICS(T)-"B" 

1710 REM *e*** SPECIAL 

1720 IF MUSIC$(T+1)="# 
1730 ТЕ MUSIC$(T+1)="-" THEN PUT(X,Y+OFFSET-POSN) , FLAT, XOR:T=T+1 :X=X+7 


THEN: POSN=5 

THEN POSN=8 

THEN POSN=11 

THEN POSN=14 

THEN POSN-17 

THEN POSN=2¢ 

THEN POSN=23 

SHAPES AND FRACTIONAL: VALUES **** 

" THEN PUT (X, Y+OFFSET-POSN+6) ; SHARP, XOR: T=T+1:X=X+11 


1740 IF MUSIC$(T+1)="2" THEN PUT(X,Y+OFFSET-POSN) ,HALF,XOR:X=X+12+SEP:T=T+2:DC=- 


4:GOTO 1790 


1750 IF MUSIC$(T+1)="4" THEN PUT(X,Y+OFFSET-POSN) , QUARTER, XOR:X=X+12+SEP:T=T+2:D 


C=-4;:GOTO 1790 


1769 IF MUSICS(T4*1)-"8" THEN PUT(X, Y+OFFSET-POSN) , EIGHTH, XOR: X=X+12+SEP:T=T+2:DC 


20:GOTO 1799 


1770 IF MUSICS(T41)-"1" AND MUSIC$(T+2)="6" THEN PUT(X,Y+OFFSET-POSN) ,SIXTEEN, XO 
R!X=K+12+SEP:T=T+3:DC=9:GOTO 1790 

1780 PUT(X,Y-OFFSET-POSN),WHOLE,XOR: T=T+1 :DC=-2:X=X+9+SEP 

1790 IF MUSIC$(T)="." THEN PUT(X-24DC-SEP,Y4OFFSET-POSN47),DOT,XOR:X-X46: T- T1 


1800 RETURN 


1810 IF MUSICS(T41)2"2" THEN PUT (X42,Y-25),REST,XOR:X-X4124SEP: T-T42:GOTO 1860 
1820 IF MUSIC$(T+1)="4" THEN PUT (X+2,Y-19),QREST, XOR:X=X+19+SEP:T=T+2:GOTO 1860 
1830 IF MUSICS(T41)-"8" THEN PUT (X,Y-29),EREST,XOR:X-X4124SEP:T-T42:GOTO 1860 

1840 IF MUSICS(T41)-"1" AND MUSICS(T42)-"6" THEN PUT (X,Y-29),SREST,XOR:X-X41248 


EP:T=T+3:GOTO 1869 


1850 PUT(X42,Y-27),REST,XOR: T-T«1:X-X4124SEP 
1860 IF MUSICS(T)-"." THEN PUT(X-4-SEP,Y-16),DOT,XOR:X-X43:T-T41 


1879 RETURN 


1880 FOR Ү-2й0 TO 170 STEP 45:FOR Z-0 TO 24 STEP 6: LINE(1@,Y+Z)- (LENGTH, Y+Z) : NEXT 
ZiLINE(19,Y*Z-6)-(10, Y-Z-29) : LINE(LENGTH, Y-Z2-6) - (LENGTH, Y+Z-29) : NEXT. Y 


1890 RETURN 


1900 REM **** CHANGE SONG NAME %ww*w 


1910 CLS: PRINT 


1920 INPUT"ENTER NEW NAME OR X TO EXIT (МАХ 30 СНК) ";А$:ТЕ Аб-"Х" THEN 240 ELSE 


IF LEN(A$)>3% THEN PRINT "ERROR":BEEP:GOTO 1920 ELSE MNAMES=AS$:GOTO: 240 
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Dispelling some of the mysteries and 
misconceptions of IBM compatibility 


What Makes a 
Compatible? 


By John B. Harrell, III 


PCM Contributing Editor 


long ago. I logged into my favorite 

Special Interest Group on Compu- 
Serve only to be greeted with disparag- 
ing remarks concerning my recent col- 
umn on “Superfast Displays" (writing 
directly into video memory). It seems 
the subject of contention was my pro- 
moting direct hardware access methods 
while sacrificing machine compatibility. 

In fact, I explicitly stated in the article 
that this method should not become 
widespread practice but should be 
limited to specific applications. 1 work 
every day with IBM PCs, Wangs, DEC 
Rainbows, Zeniths and some KayPros 
(with MS-DOS option). 

These machines are just about as 
incompatible a group as could possibly 
be imagined. To get the most from your 
software investment under these cir- 
cumstances, you must understand tech- 
niques such as those I presented and the 
differences between the various compu- 
ters. This column is devoted to explor- 
ing this broad area of interest with 
examples and programming tips. 


Ге an interesting experience not 


John B. Harrell, III has written for 
microcomputer magazines for three 
years. He holds a bachelor's degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems. 


The Definition of Compatible 

There are many different meanings to 
the word “compatible” in reference to 
computers. The definition used by most 
people rates other brands of computers 
by the amount and diversity of software 
written specifically for the IBM PC that 
the other computer will run without 
modification. SubLogic's Flight Simu- 
lator and Lotus 1-2-3 are key examples 
of compatibility tests in this area. If 
your computer can run these two pro- 
grams, it will probably run most of the 
major software. 

The other main area is generally 
called *data compatible," meaning the 
computer can use disks written in the 
standard IBM/ MS-DOS format. For 
example, programs such as MultiMate 
for the Tandy 2000 can read data disks 
prepared with the IBM PC version of 
the program with no difficulty. Another 
example is AutoCAD, which relies 
heavily on the graphics capability of the 
target machine yet allows easy transfer 
of the data files to any other machine 
capable of running Auto CA D. 

One machine, the DEC Rainbow, 
uses a non-standard disk format and 
effectively limits this data transportabil- 
ity. Even the Tandy 2000 suffers from 
this failing. While it fully supports the 
40-track disk format, the 80-track 
Tandy 2000 disk drive, with its very thin 
heads, it might have difficulty creating 
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a disk that can be used on an IBM PC. 
You must first bulk-erase the disk and 
use РСМАКЕВ to format it, and both disk 
drives must be properly aligned or the 
disk will not be usable in a 40-track disk 
drive. 

Differing degrees of software com- 
patibility can be achieved by using 
varied programming techniques. The 
MS-DOS (PC-DOS) operating system 
provides a rich programming environ- 
ment. Figure 1 summarizes the more 
than 70 functions provided in Version 
2.xx for handling files, installing inter- 
rupt drivers, requesting system services 
and many more. The newer versions 
(MS-DOS 3.xx for the Tandy 3000) 
provide even more to support network- 
ing and shared resources. 

The MS-DOS part of the system also 
provides functions for accessing the 
disk drives directly (absolute disk read/ 
write), making resident software and 
error handling. These many features are 
well-documented and supported on all 
machines. Furthermore, Microsoft has 
maintained excellent upward mobility 
in recent releases of MS-DOS. 

The most important concept to grasp 
here is this: If you use only "generic" 
MS-DOS operating system features, 
your software will run on all machines 
that use this operating system. This is 
true even for systems that are heavily 
tailored by the developer, such as the 
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Wang РС. It would seem Wang has gone 
out of its way to make their MS-DOS 
implementation hard to use, but the 
basic functions are all intact. 

Using only the generic system calls 
costs plenty. The most obvious losses 
are controlling the video display and 
ability to perform sophisticated copy 
protection schemes by manipulating the 
disk controller. You can regain some of 
this loss by using the extended video 
and keyboard commands provided by 
ANSI.SYS. But, here again, there is a 
penalty — video display speed decreases 
significantly. 

The program fragment in Figure 2 is 
a brief example of the complexity 
required for using RNSI.SYS function 
calls. The short PASCAL procedure 
mimics Turbo PASCAL's GotoXY proce- 
dure by positioning the cursor using 
ANSI.SYS control codes. To use these 
codes, the device driver must be in- 
stalled by adding the line DEVICE=AN 
51.575 to your configuration file (CON 
FIG.SYS). 


The Next Level 

As І explained іп my last column, 
there are three major divisions of the 
operating system. Your closest contact 
is with the DOS command processor 
contained in the file COMMRND . COM. This 
program provides the MS-DOS user 
interface, allowing communication with 
the operating system. It is also the 
source of the embedded commands 
such as COPY, DIR, etc. 

Below the command processor is the 
MS-DOS operating system itself. This 
provides the many functions that are 
summarized in Figure 1 and is the 
interface to the Basic Input/Output 
System (BIOS) code routines which talk 
to the hardware directly. 

In an IBM compatible computer, the 
BIOS code is partly contained in a disk 
file on each of your disks and partly in 
the computer's Read-Only Memory 
(ROM). The code in the disk file ex- 
tends the ROM code routines. The 
BIOS code design allows flexible exten- 
sions through interrupt service modifi- 
cations, installable device drivers to 
correct problems and oversights and 
allows for easy additions of new tech- 
nology peripheral equipment. 

The next level of software pro- 
grammer support resides in the Inter- 
rupt Service Routines contained in the 
BIOS code. Services in the 8088/80186 
computers are requested by interrupts 
to the central processor. These inter- 
rupts can originate with the hardware or 
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can be programmed under software 
control. 

Many of these software interrupt 
functions are duplicated by MS-DOS 
function calls and I encourage you to 
use those functions for long-range 
compatibility. Figure 3 provides a brief 
summary of the BIOS service routines 
provided in an IBM PC compatible 
BIOS and the code segment in Figure 
4 is equivalent to the one in Figure 2. 

Of the software functions listed in 
Figure 3, two are vital to programmers. 
The most used function is the video 
display interrupt followed closely by 
keyboard interrupt. Inadequate BIOS 
services are where many of the MS- 
DOS machines lose compatibility with 
the IBM PC “standard.” For example, 
Wang does not document how they 
implemented these two vital services, 
and software expecting to use these 
routine services will not run and prob- 
ably will force you to reset the compu- 
ter. A similar situation exists on the 
Zenith computer systems (Z-100/ 120). 

Of the incompatible machines, the 
Tandy 2000 BIOS code is remarkably 
complete. Most of the BIOS services are 
functionally identical to the IBM PC 
and I use my MS/PC-DOS program- 
mer’s reference manuals interchange- 
ably. I even use the documented IBM 
BIOS source code listing to trace 
through the Tandy 2000 BIOS code. 

Where services are not available, it is 
usually because the functions are gener- 
ally hardware limited, but ГП delve 
more into this later. By the way, the 
IBM programmer's and hardware refer- 
ence manuals make excellent references 
for your Tandy equipment. 

The ultimate speed advantage is 
achieved when the hardware is accessed 
directly. Why do you have to pay the 
penalty for the disk operating system's 
overhead and required maintenance? 
The answer is simple — the operating 
system is the "coordinator" for every 
application that your computer runs 
and must perform many “housekeep- 
ing" chores to maintain control. 

By achieving this great speed advan- 
tage, you have needlessly limited your- 
self to a very narrow range of installa- 
tions and, don't forget, the manu- 
facturer is free to change the hardware 
configuration at any time! For example, 
IBM does not guarantee they will main- 
tain video display RAM in the same 
location — they have done so to date 
but might change in the future. 

This latter method of programming 
has another serious side effect. With the 
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advent of Windows, Тор View and other 
related software, “well-behaved” pro- 
grams, i.e., programs that do not take 
advantage of the computer architecture, 
are a must. These systems cannot work 
as they have been designed if they 
cannot predict the behavior of the 
"child" processes they execute. In this 
case, the multitasking systems stop all 
other processes and give full control to 
the offending program. 


Comparing Computers 

Let's take a look at some of the 
differences between the IBM compati- 
bles and the Tandy 2000 as an example 
of different hardware architectures. 
There are some differences I will not 
mention — I will be examining the 
differences from a programmer's point 
of view and some of the differences are 
simply cosmetic. 

Just looking at them you immediately 
notice the keyboard — 83 keys on the 
IBM compatibles (except for the Tandy 
1000) and 90 on the Tandy 2000. A 
closer inspection reveals that they have 
some different keys. Every key gener- 
ates a "scan code" when it is pressed. 
Because of the obvious differences, the 
two computers have variations in the 
generated scan codes. 

Fortunately, similar keys generate 
similar codes, but there are some lim- 
itations. For example, the Tandy 2000 
does not have a Scroll Lock key, the 
plus (*) and minus (-) keys on the 
numeric keyboard, and you must con- 
tend with the additional codes for the 
Fil and FI2 keys. Also, because the 
arrow keys are separate from the nu- 


meric keypad, using these keys in con- 
junction with the SHIFT and ALT keys 
now has significance. 

Probably the most significant “im- 
provement" in the Tandy 2000 is the 
video hardware. The controller is to- 
tally different from the IBM compatible 
computers and, while some operating 
modes are similar, the actual implemen- 
tation is very different. The video 
controller's registers are mapped into I/ 
O ports in the computer's address space 
— these ports are totally different on the 
two machines. 

In the IBM compatibles, the video 
RAM is located a fixed segment address 
for both the monochrome (B000H) and 
color adapters (B800H). This video 
RAM is organized as a byte represent- 
ing the character value to be displayed 
followed by a byte telling the video 
controller how to display the character 
(color underlining, blinking, etc.). 

In the color graphics system, 16K of 
memory is available in the graphics 
mode and may be organized into four 
separate video pages of 80-character- 
wide lines. Using appropriate BIOS 
functions, one of these video pages can 
be displayed while you are writing to 
any of the other three pages. A simple 
instruction can then switch the active 
pages for an "instant" screen display. 

When the PC compatible displays 
graphics, the video RAM is used to hold 
the graphics pixel data. In the 320 by 
200 mode, two bits are used to represent 
a pixel on the screen yielding four 
colors: background or any of the other 
three palette selections. In the 640 by 
200 mode, each bit in RAM represents 


a pixel location on the screen so pixels 
may be either off (background) or on 
(current foreground color). 

Data is taken successively from the 
video RAM using 80 bytes as described 
above to represent one scan line on the 
video screen. Odd scan lines are taken 
from the first half of video memory and 
even scan lines are taken from the 
second half. Text displayed on the video 
screen in the graphics mode is written 
pixel by pixel from a table of characters 
stored in memory. 

In the Tandy 2000, the monochrome 
RAM is managed similarly to the IBM- 
PC with two exceptions — both are very 
important. First of all, the attribute 
bytes are totally different from those 
described in my previous column. Sec- 
ond, the video RAM segment address 
“floats” at the upper end of the memory 
you have installed. You must first find 
out the size of memory installed and 
then calculate the video segment ad- 
dress. 

The PASCAL program presented in 
"Superfast Displays" (January 1986) 
gives a good example of this technique. 
In fact, the only changes you must make 
in the program to make it run on the 
Tandy 2000 affect the video segment 
addresses and the attributes. Once these 
changes are made, the code in the other 
routines is capable of displaying data 
with no other changes. 

Handling the color and graphics 
displays on the Tandy 2000 is another 
story. The 2000's graphics RAM begins 
at segment address E000H and extends 
for 32K. For 640 by 400 resolution, 
there are 256,000 distinct pixels to be 
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displayed. Each byte of the RAM in this 
area represents eight pixels across the 
line and, unlike the compatibles, bytes 
are taken from contiguous locations for 
even and odd scan lines on the video 
display. 

To represent the full eight colors, the 
Tandy 2000 uses three bits of data. 
There are three distinct planes of mem- 
ory all mapped into the segment space 
beginning at E000H and you control 
which one is active by using one of the 
ports. When you want to change one 
pixel location, you have to set or reset 
the corresponding bit in each of the 
three planes of memory to make the 
colors come out right. 

he Tandy 2000 is a true bit-mapped 

graphics machine. Unlike the com- 
patibles, all text and graphics are writ- 
ten to the display RAM in the full 
graphics mode. The 2000's BIOS code 
is remarkably compatible; when in the 
color text mode, writing to the screen 
using the normal IBM attributes and 
BIOS calls produces the correct display. 

The single exception is that you 
cannot make characters blink by setting 
the appropriate attribute bit. The Tandy 
2000 uses the values written in the three 
graphics planes to address palette reg- 
isters on the video controller. These 
palette values are set by writing colors 
to different ports in the computer's 
address space. Just think of the effort 
required to draw the letter ‘A’ in white 
on a blue background — each pixel of 
the eight by eight character array must 
be set in each of the planes to achieve 
the proper colors. 

The organization of the video RAM 
on the 2000 has several side effects. First 
of all, it is the reason the screen scrolls 
so slowly in the color text mode. Unlike 
the IBM PC, which has to move only 
4K of RAM to scroll the screen, the 
Tandy 2000 has to shift 96K of RAM 
to produce the same scrolling effect. 

Another side effect is the lack of 
separate video pages similar to the 
compatibles. In the true bit-mapped 
configuration, the Tandy 2000 uses all 
of the video RAM all of the time in the 
color mode. This is similar to the IBM 
PC's operation in the graphics mode 
where all of the 16K of video RAM is 
used to display the graphics picture. 

Another area of incompatibility is 
generating sounds from the speaker. 
Both the IBM compatibles and the 
Tandy 2000 gate the output from an 
8253-5 programmable timer chip to the 
speaker to make sound. The port ad- 
dress on the IBM compatibles for the 
chip control word is 43H and for the 


counter register data, 42H. The output 
is gated to the speaker by using port 
61H. 

On the Tandy 2000, the correspond- 
ing ports are 46H and 40H for the 
programmable timer and 00H for the 
speaker gate. The IBM timer chip ports 
are not too damaging as they corre- 
spond to values used by the Tandy 
2000's timer. The speaker gate value is 
more of a problem as this is in the area 
of the programmable interrupt con- 
troller, and it can cause problems. 

Furthermore, any IBM program that 
accesses port zero can drastically affect 
the behavior of the Tandy 2000. This 
port controls the speaker gate on the 
2000. More importantly, it also controls 
the dynamic memory refresh updating 
and power to the keyboard. And to top 
it off, even if you overcome all of this, 
the Tandy 2000 operates the timer chip 
at a different frequency than the IBM 
PC, so the sounds produced have a 
higher pitch. 

Two other areas of hardware incom- 
patibility that might annoy pro- 
grammers are the keyboard port ac- 
cesses and the asynchronous com- 
munications ports. While their behavior 
is almost identical to the compatibles, 
the port addresses are totally different 
on the Tandy 2000. 

What's more, Tandy changed the 
BIOS code structure to replace the more 
familiar IBM interrupt for the keyboard 
with one in a totally unexpected loca- 
tion (INT 9 is replaced by INT 78H on 
the 2000). The keyboard buffer (and the 
whole BIOS communication "page" in 
low address memory) is completely 
reorganized into different addresses. 
This does have some significant advan- 
tages — the Tandy 2000 has a 512- 
keystroke type-ahead buffer. 


Conclusion 

In the short space of this column, I 
have attempted to examine some of the 
things that make computers incompat- 
ible with another. A detailed discussion 
of the differences on, for example, the 
Tandy 2000 would be enough to fill a 
good-sized book. That should not deter 
you from being interested. 

When I bought the Turbo Editor 
Toolbox from Borland International, I 
had to argue with them about getting 
the IBM PC version instead of a generic 
MS-DOS version. I was certain I could 
make the text editors run on the Tandy 
2000 with a minimum of effort. 

The changes I made to MicroStar аге 
almost identical to the code I previously 
published in *Superfast Displays," and 


itis a super text processor for the Tandy 
2000. In fact, I even added another 
couple of lines to look at the Boot ROM 
chips and determine what type of com- 
puter I am on. Now, the same program 
runs on any ofthe IBM compatibles and 
the Tandy 2000 with no changes. It's too 
bad Borland has not followed this line 
of programming — it sure would be nice 
to have SideKick and Super Key for the 
Tandy 2000. 

The moral of this story is this: You 
can convert software to run on almost 
any other machine with the proper 
understanding of the machines. You 
also need lots of patience. The source 
code is preferable, but not totally neces- 
sary. Several of us have patched IBM 
PC Turbo PASCAL to run on the Tandy 
2000, including using the high resolu- 
tion graphics modes. 

Most commercial software is so 
shrouded in secrecy that I find the task 
unworthy. If I really want Lotus 1-2-3, 
I'll buy the Tandy 2000 version of it. You 
might also break some of the licensing 
agreements by disassembling the code 
to make your changes. Most of the 
popular software packages are available 
for the Tandy 2000. 

f you have more than a passing inter- 

est in your computer's architecture 
and how to program for special fea- 
tures, I highly recommend 77e Peter 
Norton Programmer's Guide to the 
IBM PC. Other references that may 
help are the DOS and hardware refer- 
ence manuals for the IBM PC and the 
technical manuals available from Tandy 
for your computer. 

I hope this has provided some insight 
into the myriad differences in computer 
hardware that can affect compatibility. 
Several of you have asked me to write 
about how to make “Joe’s Special 
Framis” software run on the Tandy 
2000. The answer is simple — there 
really is no way other than to have an 
accomplished programmer familiar 
with the hardware make the changes. 

My experimentation and nosiness 
has allowed me the opportunity to 
accomplish some of these changes. But 
the effort has often been far from 
rewarding and, often, very frustrating. 
Earlier, I mentioned patches for Turbo 
PASCAL that allow the IBM PC com- 
piler to operate on the Tandy 2000. 
They are public domain patches and, if 
you have not received them yet, send me 
an SASE and ГЇЇ send you a copy of 
them. My address is 1519 A Carswell 
Circle, Bolling AFB, Washington, DC 
20336. 

О 
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MS-DOS Versions 2.хх and 3.xx Function Calls 


Fen & Description 


Program Terminate 

Keyboard Input 

Display Output 

Auxiliary Input 

Auxiliary Output 

Printer Output 

Direct Console 1/0 

Direct Console Input Without Echo 
Console Input Without Echo 
Print String 

Buffered Keyboard Input 
Check Standard Input Buffer (keyboard sta- 
tus) 

Clear Keyboard Buffer, Invoke a Keyboard 
Function 

Disk Reset 

Select Disk 

Open File 

Close File 

Search for First Entry 

Search for Next Entry 

Delete File 

Sequential Read 

Sequential Write 

Create File 

Rename File 

(internal DOS use) 

Return Current Disk 

Set Disk Transfer Address 
Allocation Table Information (IBM only) 
Allocation Table Information for a Specific 
Device (IBM only) 

(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

Random Read 

Random Write 

File Size 

Set Relative Record Field 

Set Interrupt Vector 

Create New Program Segment 
Random Block Read 

Random Block Write 

Parse Filename 

Get Date 

Set Date 

Get Time 

Set Time 

Set/Reset Verify Switch 

Get Disk Transfer Address 


Есп# Description 


Get DOS Version Number 

Terminate Process and Remain Resident 
(internal DOS use) 

CTRL-BREAK Check 

(internal DOS use) 

Get Interrupt Vector 

Get Free Disk Space 

(internal DOS use) 

Set or Get Country Dependent Information 
Create Subdirectory 

Remove Subdirectory 

Change Current Subdirectory 

Create a File Handle 

Open a File Handle 

Close a File Handle 

Read From a File or Device 

Write to a File or Device 

Delete a File From a Specified Directory 
Move File Read/Write Pointer 

Change File Mode 

I/O Control for Devices 

Duplicate a File Handle 

Force a Duplicate of a File Handle 

Get Current Directory 

Allocate Memory 

Free Allocated Memory 

Modify Allocated Memory Blocks 

Load or Execute a Program 

Terminate a Process 

Get Return Code of a Subprocess 

Find First Matching File 

Find Next Matching File 

(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

Get Verify Setting 

(internal DOS use) 

Rename a File 

Get/Set a File's Date and Time 

(internal DOS use) 

Get Extended Error 

Create Temporary File | 
Create New File 

Lock/Unlock File Access | 
(internal DOS use) | 
(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

(internal DOS use) 

Get PSP Address 


Note: АП interrupt function calls marked with an asterisk (*) are functions added when Version 3.xx and 
higher were released. 
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Ғідиге 2 


Sample PASCAL Program Using Extended Video Control Codes 


program test; 
const 
teststr - 
var 
i i integer; 
ch : char; 
( 


“ХХХ! i 


($P256) 


Locate the system cursor at column "x" in row "y" using 
an ANSI.SYS character string for extended video control 


) 


procedure gotoxy( x, у: 


var 
rowstr : 
colstr : 

begin 
str(y+l,rowstr) ; 
str(xtl,colstr); 
write(s27'[' 

end; 


string[2]; 
string[2]; 


{ gotoxy } 


begin 
clrscr; 
for ји 
begin 
gBotoxy(i*3,i); 
write(teststr); 
end; 
read(kbd,ch); 
end. 


Q to 24 до 


,rowstr;"';"! 


integer ); 


{ convert row number to a string format ) 
{ convert column number to а string also) 
,colstr,'H'); ( write ANSI.SYS sequence ) 


Figure 3 


BIOS Device 1/0 Services for the Tandy 2000 


1) Keyboard Interrupt Functions 


0: Read Keyboard (destructive with wait) 
1: Scan Keyboard (non-destructive, no wait) 
2: Get current shift status 


3: Flush keyboard buffer 
4: Reset keyboard 


12: Write pixel dot 

13: Read pixel dot 

14: Write in TTY mode 

15: Get CRT mode 

16: Get/Set character fonts 

17: Write attribute or color only 
18: Additional scroll functions 


gA Video Display Interrupt Functions 


0: Set CRT mode 

1: Set cursor type 

2: Set cursor position 
3: Get cursor position 
5: Select active page 
6: Scroll up 

7: Scroll down 

8 
9 
10 


: Read attribute/character 
: Write attribute/character a. 


: Write character only 
11: Set color palette 


3) Serial Communications Interrupt 
0: Reset COM port 
1: Transmit character 
2: Receive character 
3: Get current COM status 
4: Flush COM buffer 


4) Line Printer Interrupt 

0: Print character 

b. 1: Reset printer port 

2: 2: Get current printer status 
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5) System Clock Interrupt i 9: Initialize hard disk drive parameters 
a. 0: Get time of day i. 12: Perform seek on hard disk 
b. 1: Set time of day j. 13: Reset hard disk system 
С. 2: get date and time . 14: Read hard disk sector buffer 
d. 3: set date and time А 15: Write hard disk sector buffer 

16: hard disk drive ready test 

6) Disk 1/О Support Interrupt 

0: Reset specified disk 7) Boot Strap Interrupt 
: Return status of last disk operation 
: Read sector(s) from specified disk 8) Print Screen Interrupt 
: Write sector(s) to specified disk 
: Verify sector(s) on specified disk 9) System Equipment Status Interrupt 
: Format track on the specified disk 
: Return hard disk drive parameters 10) Memory Size Interrupt 


e-o ooo 


Figure 4 
Sample PASCAL Program Using BIOS Interrupt Function Calls 


program test; 
const 
teststr = 'XXX'; 
type 
regpack = 
record 
AX; BX, CX; DX, BP; SI, DI, DS, ES, Flags 2 integer; 
end; 


integer; 
char; 


Locate the system cursor at column "x" in row "y" using 
a BIOS interrupt 16 video call 
} 
procedure gotoxy( x; y l integer ); 
var 
regs 2 regpack; 
begin 
with regs до 
begin 
АХ = 50200; { Set AH = 2 for "Set Cursor Position" ) 
BX := 0; (бес BH = current video page, assumed 0 ) 
DX је (у shl 8) + xj (бес DH = row; DL = col) 
Intr(16,regs); { Call BIOS code to set cursor ) 
end 
end; ('gotoxy } 


begin 
clrscr; 
for i := @ to 2& до 
begin 
gotoxy(i*3,i); 
write(teststr); 
end; 
read(kbd,ch); 
end. 
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|| Feature 


The advantages and how-to's of using tapes . . . 


Coping with 


Cassettes 


By F.H. Ingle 


ow is your Model 100 cas- 

sette interface working? For 

many, I suspect the answer is 

“seldom.” Some of us have 

never tried out the cassette 

interface; others have tried 

it, but for a number of reasons found 

it unreliable. Still others have had 

success with using cassettes, but eased 

out of using them because they just seem 

to be more trouble than they're worth. 

The purpose of this article is to show 

you how to use the cassette interface in 

such a way that it works first time — 

every time, and with a minimum of 

effort. We'll also look at how to set up 

a cassette library system, one that fits 

neatly into your briefcase, which will 

enable you to find what you are looking 
for in a matter of seconds. 


Advantages of Cassettes 

Before we get into the finer details of 
your Model 100 cassette interface, let's 
consider some reasons why using 
cassettes is advantageous. First, 
cassettes allow you to back up files on 
your Model 100 if they are inadvertently 





Frank Ingle holds a master's degree in 
electrical engineering and is owner of 
Command Communications, a com- 
munications consulting firm. During 20 
years' involvement with computers, he 
has invented two new computer systems 
and has done research for IBM, Honey- 
well and the Navy. He is also a member 
of the IEEE. Frank can be contacted at 
2580 Park Street, Jacksonville, FL 
32204. 


damaged. This could be caused by 
software that goes haywire, letting your 
batteries run down or your own nimble- 
fingered mishaps on the keyboard. If 
you ever install more memory in your 
system, or any of a number of other 
accessories that require a cold start, a 
backup of some kind is essential. If you 
are in the habit of backing up your files 
on cassette on a regular basis, you can 
take all of these problems in stride. 

A second advantage is to enable you 
to stretch the memory capacity of the 
computer. By using cassettes, you can 
edit and print manuscripts and pro- 
grams that are much longer than your 
memory can hold. 

You can also maintain a library of 
programs ready to use on short notice. 
With so many nifty programs available, 
it just doesn't make sense to limit 
yourself to only the programs you can 
keep online in the 100. 

With cassettes, you have the ability to 
exchange programs and text with other 
Model 100 users. One 90-minute 
cassette can hold 234K of text (that's 
around 100 typewritten pages), but can 
be mailed anywhere in the country for 
56 cents. You'll have to admit that's 
quite a bargain! 

Another advantage is that the 
cassette equipment is portable, just like 
your computer. The Model 100, a pro- 
gram library, a cassette recorder, spare 
batteries and miscellaneous cables all 
neatly fit into one briefcase (see Figure 
1). 

АП of these advantages may be used 
as arguments for using a portable 
49 


May 1986 PCM 





-ADING PORTABLE? 


WHAT ARE THE TWO MOST IMPORTANT CONSIDERATIONS? 


SIZE AND WEIGHT! 

This printer is half the size and half 
the weight of your Model 100. 
Anywhere you happen to be, 
cruising at 30,000 feet or in a cab to 
an important business meeting, you 
can get a quick and quiet printout. A 
perfect companion for your 

Model 100/200/600. 


FEATURES? 

This printer has them all: 

e 8%%'' wide thermal paper 

* 512 byte buffer 

• Epson MX-80 bit-mapped graphics 
* Built-in automatic self test function 
* Excellent User's Manual 





CACTUAL print sample» 
SH Chars-Line, 48 CPS! 
Eril = шесі! 
underlined Emphasized! 
CONDENSED gives you 168 chars. line! 


$99 GRAND TOTAL 

You get the printer and a specially 
made 18” cable (connects printer to 
your Model 100/200/600 or NEC 
8201/8401), 20' roll of paper, a 
paper holder, and 4 “С” batteries 
— everything you need to start 
printing immediately with the push 
of a button. This price also includes 
free UPS surface shipping in the 
cont. USA. There is no surcharge 
for VISA/MC/Amex — even the 
phone call is free. 


RUGGED 

This printer was designed to print 
over 300,000 lines without 
maintenance — that's over 104 
pages every week for a year. 





DIRECT TO YOU 

We've been selling this printer to 
our portable customers and 
corporate accounts for over a year. 
Two of our largest accounts, NBC 
and National Geographic, use them 
in the field all over the world. To 
meet the demand we have gone 
direct to the Japanese 
manufacturer. Our large volume 
cost is unbelievablg»— that's Why 
we can Offer itedirect 10 YOU at this 
fantastic рсе, yet Шоме you 
great зегмтве and support (6 month 
parts/labor warranty, 30 day money 
back satisfaction guarantee). 


SUPPORT 

We stock paper (rolls and sheets), 
cables, and accessories for the 
printer. The full accessory kit costs 
only $24 and includes a carrying 
case, 100’ roll of paper, and an A/C 
adapter (saves batteries when A/C 
power is convenient). 


NO RISK 

Try it for 30 days, ask your friends 
and business associates if they've 
ever seen anything like it. You can 
return it in 30 days for any reason 
and get a full refund. Don't let 
yourself miss this portable printer 
bargain of a lifetime. 












TANDY 200 

24K Memory Module 

$89 — two for $170 

Can be installed in less than 2 
minutes, the only tool required is a 
coin to pop open the hatch. The 
TANDY 200 is expandable to 72K by 
adding two of our 24K modules. 
Built with the lowest power and 
most reliable memory chips 
available. The pins are made 
specifically for the TANDY 200 chip 
socket. 2-Year Warranty. 


















MODEL 100 

NEC PC-8201A, Olivetti M10 

8K Memory Module 

$29 — three for $79 

Plugs into the socket provided— 
expanding your memory by 8,192 
bytes. Super low power components 
for iong battery life. Low profile 
which is very important to properly 
fit the NEC PC-8201A. Tens of 
thousands sold since 1983. 

2-Year Warranty. 4 


TANDY 600 er 4 
96K Memory Unit 
$249 — two for $469 
You can install one or Wo of these 
units inside your TANDY 600 — 
giving you a maximum of 224K. 






NEC PC-8201A 
SIDECAR 128K RAM 
CARTRIDGE 

$259 

Plugs intefside expansion slot 
providing four additional banks of 
32K each. 


IT'S EASY TO ORDER 

Send your order with payment to the 
address below. Or, if you prefer, 
credit card orders can be handled 
by phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales 
tax. Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 


1-800-732-5012 TOLL FREE 
Orders only (8am. - 5pm. PST) 

In California (805) 987-4788 
For orders or customer service 


If you would like our latest product 
catalog or to find a dealer near you, 
please write or call (805) 987-4788 


= PURPLE 
(44 COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 
Telex: 888661 (PURPLE) 


Canada: Canada Portable Computer, 
Langley, B.C. (604) 856-8858 


НАМ EXPANSIONS! 


FOOLISH TO PAY MORE — DANGEROUS TO PAY LESS 

















floppy disk system as well. However, 
the most outstanding advantage of 
using cassettes can't be touched by any 
other system: economy. You can do all 
of these things for under $50. For those 
users who were attracted to the Model 
100 because of its inexpensive price tag 
in the first place, this will probably be 
a deciding factor. 





How Data Cassettes Work 

Now with some convincing reasons 
that the cassette interface can be a useful 
tool, let's see how it works. How do 
those mystical beeps and burps that the 
cassette records get turned into mean- 
ingful data? You are, no doubt, already 
aware that all of the characters you see 
on the display of the Model 100 are 
stored in memory as binary numbers. 
Each character is assigned to a different 
number, which may be represented by 
a combination of eight binary digits 
(bits). The trick is, how can we record 
these “ones” and “zeros” on magnetic 
tape? A technique called Frequency 
Shift Keying (FSK) is used. Don't let 
the name scare you, though. The con- 
cept is really pretty simple. The Model 
100 converts every zero to a sound 
whose pitch is 1200 Hz. That would 
sound something like playing the 'Е' in 
the third octave above Middle “С” on the 
piano. To represent a one, the Model 
100 produces a sound whose pitch is 
2400 Hz. That would be a note one 
octave higher on the piano. Those 
familiar with the inner workings of 
modems will recognize this as the same 
technique used to send data using the 
Bell-103 compatible modem, although 
the frequencies are different. 

So that's it in a nutshell: The Model 
100 turns ones and zeros into “music” 
so they can be recorded on cassettes. If 
you listen to a cassette recorded by the 
Model 100, you'll hear the 1200 Hz tone 
right after every pause. That's a string 
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of zeros being written by the Model 100 
to introduce the next section of text or 
program. Then you'll hear something 
like a buzz saw when actual data is being 
recorded. The “buzz saw” sound is 
caused by those two tones being turned 
on and off very quickly. If you listen to 
one second of tape, you will have heard 
1,500 ones or zeros, or roughly 150 
bytes of data (ASCII characters). 

A little quick arithmetic would lead 
you to think 45K of data could be stored 
on five minutes worth of tape, however, 
this is not so. In addition to the data in 
the file, the Model 100 is also writing 
header records, synchronizing pulses, 
interblock gaps and checksums. All of 
these ensure the cassette system works 
smoothly and dependably, but they also 
take up additional space on the tape. It 
turns out that 13K of text can be re- 
corded on one side of a 10-minute tape 
(i.e., in five minutes). If you have several 
files to record instead of one, plan on 
getting about 12K per side. 


Why Won't All Recorders Work? 

Now a very good question comes up. 
Why won't the Model 100 work with all 
cassette recorders? Why will it work 
with a $29.95 recorder and not my 
$1,000 stereo deck? One problem is the 
tone that represents a one, 2400 Hz, is 
towards the upper end of the capability 
of some recorders. Accordingly, the 
ones are not played back quite as loud 
as the zeros, and this confuses the 
Model 100. 

If the cassette recorder has a tone 
control this may be easily corrected by 
adjusting it to the high (treble) side until 
the interface works dependably, and 
then always using that tone setting when 
using the recorder in conjunction with 
the Model 100. If a cassette recorder 
lacks a tone control, and doesn't seem 
to work with a Model 100, there is no 
simple way to make it work. 

Another common problem that keeps 
cassette recorders from working with 
the Model 100 is signal level. The 
recorder must accept the signal exactly 
as it comes from the 100 because very 
few inexpensive recorders have a man- 
ual volume control, which affects the 
record level. If the recorder wants a 
louder or softer signal than the 100 
furnishes, you're out of luck. On play- 
back, though the level must also be just 
right, this level may be adjusted by 
turning the volume control to a setting 
that works dependably. Some recorders 
(including some very expensive ones) 
are not capable of handling or produc- 
ing the required signal levels no matter 


what setting is used, and these are the 
ones that are of no use to Model 100 
owners. 

The best way to know if a particular 
model of cassette recorder will work 
with your Model 100 is to ask someone 
who has tried it. Be sure to ask for the 
best volume and tone settings as well. 
The Model 100 SIG on CompuServe is 
a good place to find out. 

One recorder that works particularly 
well with the Model 100 is the Sears SR 
Series Model 560.26170250 (see Figure 
2). You can find it in the 85/86 Office 
Equipment and Supplies Catalog on 
Page 49, catalog number 57 KX 21674. 
The current price is $39.99, (Note: The 
picture in the catalog is mislabeled — 
the correct picture is letter ‘D’.) Ап 
identical recorder is also available from 
Radio Shack for $59.95. Ask for catalog 
number 14-812. In addition to the tone 
control, this model is smaller than the 
one normally offered by Radio Shack 
for use with the Model 100, and uses the 
same batteries as the 100. A tone control 
setting of '4' and a volume control 
setting of '7' on this unit gives dependa- 
ble recordings every time. 


Choosing the Right Tape 

Once you have the right recorder, 
you'll need some cassette tapes. A tape 
salesperson will probably say you need 
the best tape for data recording. 
Though this may be good advice for 
other computers, it's not true for the 
Model 100's sophisticated cassette 
interface — it's not fussy about tape at 
all. 





You can use just about any cassette 
tape with the Model 100. I suggest, 
however, that you use very short tapes 
to make finding files on the tapes easier. 
I recommend a 10-minute tape, which 
allows five minutes of data (about 12K) 
to be recorded on each side. This type 
of cassette is normally referred to as a 
“С-10.” 

If you can find these short tapes with 




































no leader, the work is even easier. Тһе 
leader is the odd-colored tape spliced to 
both ends of most cassette tapes, which 
is stronger than regular tape, and is 
designed to handle the extra stress that 
is applied to the tape when it runs out 
in fast forward or rewind. The problem 
with most leaders is that you can't 
record on them, so you have to manu- 
ally advance the tape past the leader 
before recording. 

Radio Shack offers a certified data C- 
10 tape, catalog number 26-302, for 
$1.89 (see Figure 3). Both leaderless and 
leadered tapes are under the same 
catalog number. This is a bit of an 
overkill for our needs, but it's difficult 
to find less expensive C-10 tapes. If you 
prefer, look in the yellow pages under 
"tapes-sound-dealers" to find someone 
who sells tapes made for duplicator use. 
If they have their own cassette winding 
machine, they may be able to make 
tapes to order in any length and any 
quantity, and still beat Radio Shack's 
prices. 


I suggest starting your library with 
about five tapes. If more are needed 
later you can add to it. While shopping, 
you may also want to pick up a head and 
capstan cleaning cassette (see Figure 4). 
Radio Shack offers one under catalog 
number 44-1163 for $4.99, or you could 
get a bottle of 90 percent isopropyl 
alcohol and a box of cotton swabs. 
Either of these can be used to keep the 
cassette recorder clean. 


Paint Your Plug 

Naturally, you'll need a cassette 
interface cable, which comes with your 
Model 100. Here's a hint that makes life 
simpler when using this cable: get some 
red fingernail polish and paint the larger 
gray plug. Then, put a drop of red nail 
polish on the recorder just above the 
MIC jack. This color coding scheme 
helps prevent fumbling with the wrong 
plugs when trying to connect the 
cassette recorder — the red plug goes in 
the red jack, the gray plug goes in the 
smaller remote control jack and the 
black plug goes in the EARPHONE 
jack. Since the recorder needs to be 


plugged and unplugged several times 
during each use, this is a big timesaver. 

While painting, you may also want to 
put a drop of paint on the edge of the 
volume and tone controls to show the 
correct setting for use with your Model 
100. If the controls are white, the red 
nail polish will work fine, otherwise try 
a dab of typewriter opaquing fluid (see 
Figure 5). You'll find these marks to be 
a big help in setting the volume and tone 
controls, which also must be done with 
each use of the recorder. 


Organizing Your Tapes 

Two more items will make your tape 
library complete: a handful of three by 
five-inch cards and a tape cassette 
holder of some kind. The cassette tape 
storage unit isn’t really necessary, but it 
makes your briefcase a lot neater if all 
the tapes are kept in one small box. 
Figure 2 shows two different types that 
are especially suitable for use in a 
briefcase. 

The first is manufactured by Scotch 
(3M) as part of their “C-Box” Pushbut- 
ton Cassette Storage System (see Figure 
6). The Scotch line of cassette accesso- 
ries is usually carried by budget depart- 
ment stores and by electronic wholesal- 
ers. A similar product, though not quite 
as sturdy, is available from Long’s 
Electronics. It’s called the K-cet Mod- 
ular Pop-Out Cassette Storage System 
(see Figure 7). It holds six cassettes and 
sells for $5.39 plus $1.59 for shipping. 
The catalog number is EMRK6H and 
Long’s address is 2700 Crestwood 
Boulevard, Birmingham, AL 35210. 
Both systems have a separate slide-out 
box for each cassette that can interlock 
with adjacent boxes on top and bottom. 

Now that you have all the raw mate- 
rials, you’re ready to start your library. 
Begin by labeling your tapes “1А” оп 
side one and “ІВ” on side two of the first 
tape, “2A” on side one of the second 
tape, etc. Do this on tapes one through 
four. These will be your “dump” tapes. 
On the fifth tape, write “BASIC Library 
1A and 1B.” This tape will be set aside 
for keeping finished BASIC programs. 

Now you'll want to prepare two three 
by five catalog cards for each one of the 
tapes. Follow the format given in Figure 
8. 

Use the front of the card (lined side 
only) so you have one card for each tape 
side. Make up a few extra cards to 
replace ones that get filled up later. Fill 
in the tape number and type (either 
DUMP or BASIC Library) now. 

The way to use the dump tapes is to 
periodically dump all the files from the 


skipped. 





















Model 100 to tape, thus backing up 
your entire system. How often this 
should be done depends on how much 
the computer is used, but a good start- 
ing point is to make a dump tape after 


Figure 4 


every five hours of work on the compu- 
ter. If the system is used to write a lot 
of short letters, you might not want to 
take the trouble to dump them. Also, if 
there are files that seldom change, such 
as ADRS.DO, dump these after every 
change instead of every time a dump 
tape is made. 


Saving A Text File 

Let’s use the example of ADRS.DO to 
see exactly what steps are necessary to 
make a dependable backup. Start with 
tape number 1A and rewind it to the 
beginning. If the tape has a leader, you'll 
need to advance the tape to the spot 
where it changes color. A ball-point pen 
exactly fits the cassette hub and allows 
you to pull the tape by turning the hub. 
Turn the right hub counter-clockwise 
until the intersection of the tape and 
leader shows in the middle opening of 
the front of the cassette (where the 
playback head normally goes). If you 
have a leaderless tape, this step can be 


Now place the tape in the recorder 
and connect the cassette interface cable 
to the Model 100. Don't connect it to 
the recorder just yet. Adjust the volume 
and tone controls to the proper settings. 
If the recorder has a tape counter, press 
the reset button to set the counter to 
zero. Press the Record and Play buttons 
simultaneously, and speak into the 
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microphone as follows: *Dump of 
ADRS.DO made on mm/dd/yy” (indi- 
cate today's date). Press the Pause 
button to stop the recorder. When you 
say the filename, spell it out. 

On line one of the tape catalog card 
for dump tape 1А, write іп 
“ADRS.DO” under the NAME column 
and the tape counter reading under the 
START column. Connect the cassette 
interface cable to the recorder using the 
red and gray plugs. Press the Record 
and Play controls simultaneously. Place 
the cursor of the Model 100 on the file 
ADRS.DO and press ENTER. Press F3 
(save) and key in ADRS and press ENTER. 
(You are not allowed to use a file 
extension such as .DO in tape file- 
names.) 


Figure 6 


When the tape stops, record the tape 
counter reading on line one of the 
catalog card under the column marked 
STOP. Fillin today’s date under DATE. 
If you know the size of the file (in bytes) 
fill it in under SIZE. (See sidebar for a 
program to measure the size of a text 
file.) Press the stop button on the 
cassette recorder. Press F8 on the Model 
100. Unplug all interface plugs from the 
cassette recorder. 


Checking the Text File Dump 
You now have a tentative copy of 
ADRS.DO on cassette. I say tentative 
because there may have been a hitch in 
the recording process. Sometimes a 
small particle (oxide) of tape comes off 
and sticks to the head of the recorder. 
This tiny speck can occasionally keep 
the tape from being readable if it is on 
the head when the recording is being 
made. Also, if it is a big flake of oxide, 
| the spot on the tape where it came from 
never records successfully again. The 
only way to be sure of a good copy is 
to check it right after making it and be 
sure it is readable. Listing 1 shows a 
program that does this for you for .00 
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files. A checking program for BASIC 
programs is already built in to the 
Model 100. 

If your tape copy turns out to be OK, 
place a check mark under the CK col- 
umn on your catalog card. You are now 
ready to move on to the next file you 
want to back up. If your first file turns 
out to be defective, see the suggestions 
in *Trouble-shooting Guidelines.” Press 
the Stop button on the recorder before 
disconnecting the interface cable. 

That's all there is to making a depend- 
able copy of a file. If you want to dump 
additional files on the same tape at this 
time, just record a new voice header and 
then the data as before. Be sure to 
update the appropriate line on the 
catalog card for that side. When fin- 
ished, remove the tape and place it in 
its drawer. You need not rewind the tape 
when you finish because next time it is 
used, you may want to use the other 
side, which would mean un-rewinding it 
before use. 


Managing Your Tape Library 

If you want to record a new file on 
atape that already contains one or more 
files, here's what to do: As before, you'll 
need to reset the tape counter to zero at 
the beginning of the recordable part of 
the tape. Fast-forward the tape to the 
end of the last file on the tape you want 
to keep. This can be determined by 
comparing the value of the tape counter 
recorded under STOP on the last line 
of tape catalog card with the reading on 
the tape counter. Listen to a few seconds 
of the tape to ensure that you're actually 
past the end of the previous file. If you 
don't have a tape counter, listen to the 
voice headers to see where you are. Now 
you're ready to record a new voice 
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header and dump the file just as de- 
scribed in the previous paragraph. 

You should have no problem record- 
ing over an old file with new data if so 
desired, but there is one warning. Don't 


try to overwrite an existing file with a 
new one unless it's the last one on the 
tape that you want to keep. Here's an 
example: Say you have recorded files A, 
B and C (in that order) on a tape (see 
Figure 9). You no longer need File B, 
so you're ready to overwrite it with File 
D. If File D turns out to be longer than 
File B, it will also overwrite part of File 
C, making File C useless. The best way 
to avoid this problem is to never start 
a recording unless you're sure there's 
nothing later on the tape you want to 
keep. 

That brings us to the subject of 
phasing out files. By the time you've 
used up all eight sides of the dump tapes 
(that's about 100 K), you will probably 
find that some of your oldest recordings 
are obsolete. For example, you may 
have several copies of RDRS.DO. Since 






Figure 8 
TYPE ` 
DATE 


ck | NOTES 


you are probably not interested in 
keeping any but the most recent copy, 
the older copies are no longer needed. 

When a file becomes obsolete, draw 
a line through it in the catalog card. If 
you strike out all of the lines on a card, 
then the corresponding tape side can be 
treated just like a new tape, and you can 
record over anything that's on it. If all 
but a couple of files on a side are 
obsolete, you may want to reload them 
and save them to a new tape, or simply 
make a hard copy instead. Anytime the 
last several files on a side are obsolete, 
you can record over them without 
disturbing the earlier files on the tape. 
If you ever get all eight sides filled up 
and can't find any files to delete, it's time 
to expand your library and buy addi- 
tional tapes. 


Figure 9 


PRESENT TAP LAYOUT 


it against the copy in memory. There is 
no further display until the file has been 
completely read, at which time the 
computer simply replies Ok, indicating 
the copy on tape is good. If you get this 
message instead, Verifu failed, refer 
to the “Trouble-shooting Guidelines." 

If the program being dumped to tape 
is one you're still refining, you'll want 
to use a dump tape. If it's a completely 
debugged program that you want to 
save for later use, copy it to your BASIC 
library tape. This library tape can be 
used to hold all of your completed 
programs as they are collected, and you 
should not need to phase out any of 
these files as with a dump tape. 


Reloading Text Files 
Now it's time to see how to reload 


| Tape Layout Illustration \ 
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‘NEW FILE 


KEY: V.H. = Voice Header 


Saving a BASIC Program 

Making a tape copy of a BASIC pro- 
gram is just a little different. Let's use 
the example of the CHECK . BR file to see 
how. After finding an appropriate spot 
on a tape to record the new file, set up 
the recorder and make the voice header 
like this: “Dump of CHECK.BR dated 
mm/dd/yy." Plug in the red and gray 
plugs and press the Record and Play 
buttons simultaneously. As with a text 
file, place the cursor over the filename 
(СНЕСК.Ва) and press ENTER. Imme- 
diately hold the SHIFT key down and hit 
the BREAK key. When you see the Ok 
prompt, type іп CSAVE “CHECK and 
press ENTER. As usual, the .BA exten- 
sion is not allowed for tape filenames. 
The closing double quote is optional. 
When the recorder stops, make a note 
of the tape counter reading. 

In order to check the validity of a . BR 
file, use the built-in program CLOA D? 
like this. Rewind the tape to the voice 
header and stop it. Plug in the black and 
gray plugs and press the Play button. 
Then enter CLOAD? “CHECK and press 
ENTER. The Model 100 will reply 
Found: CHECK and proceed to compare 


|- Gap between sections 


files from tape to the Model 100. The 
first step is to find the filename listed on 
a catalog card. Compare the size listed 
on the catalog card against the available 
memory figure shown on the menu. If 
the file is larger than the space available, 
some files need to be deleted from the 
Model 100 first. 

Load the appropriate tape in the 
recorder and reset the tape counter to 
zero at the beginning of the recordable 
part of the tape. Fast-forward the tape 
until the tape counter reads the same 
value as the number in the STOP col- 
umn on the line above the entry for the 
tape you want. This puts you close to 
the beginning of the voice header for the 
file wanted. Press Play and listen to the 
voice header to verify it is the right file. 
As soon as you hear the date, press 
Pause. Connect the cassette interface 
cable to the Model 100 and plug in the 
black and gray plugs to the recorder. 
Release the Pause button. 

If you're restoring a text file, place the 
cursor over the word TEXT and press 
ENTER. Upon seeing the prompt File 
to edit?, type in a filename of up to 
six characters. You may use the same 


name on the catalog card — it doesn't 
matter what this file is called. Then 
press ENTER and press F2. The Model 
100 will prompt Load from:. Enter the 
name of the file as recorded on the 
catalog card, being sure to omit the 
extension .00. When you press ENTER, 
the cassette tape begins moving and the 
file is loaded into the Model 100. When 
the tape stops, the file is shown on the 
LCD display, just as if you had typed 
it in yourself. 

If you get the message Rborted, that 
means the Model 100 has had a problem 
in reading the file. If you followed the 
procedures outlined above in making 
and checking the file, you have nothing 
to fear if that message appears. You 
should still be able to recover the file. 
Just refer to the “Trouble-shooting 
Guidelines." 


Reloading BASIC Files 

If restoring a BASIC file, connect the 
recorder as just mentioned and press 
Play. Place the cursor over the word 
BASIC and press ENTER. When the Ok 
prompt appears, press F5 to list the 
contents of the BASIC workspace. If 
there is already a program here, SAVE 
it to RAM before reloading from 
cassette. Then enter CLORD and press 
ENTER and wait while the program 
loads. The Model 100 will respond 
Found: filename when it starts load- 
ing, and then Ok when finished. Once 
again, if you get an error message refer 
to the “Trouble-shooting Guidelines." 
After loading the BASIC file from tape, 
you may want to save it under a separate 
filename. To do this, type in: SAVE 
“Program name and press ENTER. 

Any six-letter filename may be used 
as a program name. In this case, the . BA 
extension is not required, nor is the 
closing double quote. After saving the 
program just loaded with the SAVE 
command, you'll probably want to 
enter NEW to erase the old copy of the 
program in the BASIC workspace to 
conserve memory. 


Trouble-shooting Guidelines 

If you have trouble reading a file, the 
problem can usually be overcome by 
checking just a few details. Start with 
the obvious. Are the volume and tone 
controls correctly set? Are the cables 
connected correctly? Are your batteries 
getting a little old? Your tapes may 
sound great to the human ear, but the 
Model 100 judges by different criteria. 
Try some new batteries or an AC adapt- 
er. If all these are OK, you probably 
have one of two problems: 
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First, the recording head may be 
dirty. This could happen even if you've 
recently cleaned the head because oxide 
can flake off of the tape at any time. The 
cure is simple, just follow the instruc- 
tions for cleaning the head that came 
with the recorder or head-cleaning kit. 
Be sure to wait a minute before using 
the recorder again to give the head and 
rollers time to dry thoroughly. I find it 
easier to clean the head whenever I have 
a problem than to try to do it period- 
ically. 

After you've cleaned the head, try 
reading the file again. If it's OK, you're 
in business. If you've just recorded the 
tape and had trouble in checking it, try 
recording the file again. If the heads 
were dirty when the recording was 
made, cleaning the heads may have 
cured the problem. 

If not, here's the second most com- 
mon problem: There may be a bad spot 
on the tape that can prevent you from 
ever making a successful recording on 
that section of the tape. The bad spot 
may be so small it doesn't even effect the 
other side of the tape. If you are able 
to successfully record the same file on 
another tape and it checks out OK, then 
you've found the problem. On the 
catalog card for the bad tape, make a 
note of the problem on the line for the 
file you've just recorded. Next time you 
record on that tape, start at the end of 
the bad file and you'll probably have no 
trouble. You rarely see a C-10 tape with 
more than one bad spot on it. 

By taking the trouble to check a file 
right after it is made you can protect 
yourself from both of these problems. 
Once you've verified that a file is read- 
able from tape using one of the check 
programs, the chances are almost 100 
percent you'll be able to load it later. 

I hope you'll agree now that using 
cassettes really isn't too difficult if 
you're willing to take a few extra sec- 
onds to manage your cassette library 
thoughtfully. Good luck in your efforts 
to build a library that just suits your 
needs! 
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Program to Check a Text File Copy on Cassette 
Listing 1 is designed to be used in verifying the integrity of text files once 
they've been copied on cassette. To use the program, enter it as shown under 
BASIC. Save it as a separate program by typing SAVE “CASCK and pressing 
ENTER, then type NEW and exit BASIC. 
| 


||| due n v ve ТОК О ТА ОТК 

тп бап CODED сата. CODED LISTING || 
Петен теит ПТТ ТОГТОВ ПШ 
10 .CLS:CLEAR512:OPEN"CAS:"FORINPUTAST 
20 LINEINPUT&1,LN$:PRINTLNS$ 


30 IFEOF(1)THENCLOSE: PRINT"-->File Ok<--":END 
40 GOTO20 
















Listing 1 












Once a .00 file is copied to cassette, you may verify that the copy is readable 
by rewinding the tape to the beginning of the file, connecting the cassette 
interface cable and pressing the Play button on the recorder. Then place the 
cursor over the filename CASCK . BA and press ENTER. The program will attempt 
to read and display the next file it finds on the tape. Each character is checked 
with the built-in checksum routine and displayed on the LCD screen, though 
the layout will not match the way it looks under the editor. 

If an error is encountered, the program terminates with an IO Error message. 
Otherwise, the message --->F ile 0.K.«--- appears on the screen at the end 
of the file. At this point you can KILL the text file with complete confidence 
that it can be restored later, provided you don't lose or damage the tape. 

The only trick to using the program is that you must have at least 659 bytes 
of memory free (as shown on the menu). If you are saving a file because you 
have run out of memory, you need to get a little more memory free before this 
program can be run. Start by clearing the copy buffer by entering CLERR 
O0,MAXRAM under BASIC. At this point you should have at least 192 bytes free. 
To make enough space for this program to run, 12 more lines of text need to 
be deleted. If you have any files you can afford to kill, this is an easy way out. 
If you have a backup of any files (such as ADRS.DO), you can kill it now and 
reload it from cassette later. If there isn't a file you can sacrifice, space can be 
made by deleting lines from a text file. 

The best way to clear up space in a pinch is to plan for it in advance. If you 
make a file called JUNK . DO that consists of 12 lines of X's (40 x’s per line), that 
file can be killed any time you run out of space and you'll have exactly enough 
space to run this program. This same technique can bail you out of a pinch 
if you run out of memory when using CUT and PRSTE. 








| | ІШІП 


[РС 


| ПГТ] ||| 

10 CLS:CLEAR 2000: FILLES 
20 PRINTQ294," "::INPUT"File name";F$ 

30 OPEN F$ FOR INPUT AS 1l. 

49 IF EOF(1)GOTO6@ . | 
LINEINPUT $1,C$:C-C-14LEN(C$) : GOTOAQ 
C=C+1:PRINT@226, "Size-"C:CLOSE 






| isting Я 


Program to Compute the Size of a Text File 

When saving files to cassette, it’s always helpful to know how large they are, 
so when they’re ready to be reloaded, you can be sure there is enough space 
in memory. Listing 2 counts the number of bytes contained in a .00 file. 


To use the size program, first enter the program under BASIC and save it using 
the SAVE command as follows: SAVE “SIZE and press ENTER. To run the 
program, place the cursor over the filename SIZE.BA and press ENTER. You 
will see a list of all of the text files currently on your system. Select one file 
to check the size and enter its name (including the extension .00). When the 
program has been run, make a note of the size of the file on the catalog 
card. 
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Figure the financing that best suits 
your budget 

























































































ow let's see, if I buy that new 
М wagon at the car деајег 

7.9 percent rate and finance it 
for 36 months, can I swing it? What if 
I settle for the bank's 11.2 percent and 
spread it over 48 months? Does that fit 
my budget a bit better? If you find 
yourself pondering such thoughts, The 
Loan Officer may be just what you're 
looking for. 

The Loan Officer was created with a | 
couple of things in mind. The most 
obvious are amortization schedules, 
rate comparison based on different 
lengths of payments using the same rate 
and an ability to compare different 
interest rates against a total amount 
borrowed. At the same time, I have been 
wanting to show off a different way to 
create BASIC menus. I wrote the menu 
routine several months ago and hadn't 
come up with the right kind of program 


to use it with, until now. As a bonus, The 


Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PCM s sister publi- 
cation for the Color Computer, and is 
the author of a number of commercial 
programs. He may be contacted at P.O. 
Box 403, Cambridge, MD 21613; 301- 
228-0064. 








































































































DISK POWER 


AT LAST !! 


ULTRACHARGE YOUR TANDY PORTABLE DISK DRIVE WITH 
DISK POWER 100/200/102 


• А REAL DISK OPERATING SYSTEM 
. All disk functions completely supported by DISK POWER. 
No need to rely on FLOPPY.CO or user-written programs for 
external utilities. DISK POWER is not just another disk 
manager program, it is the full featured DOS that the MODEL 
100 should have had from the very Ои! 


* DISK ACCESSIBLE FROM BASIC & TEXT 


. Data file ИО operations supported with familiar BASIC com- 
mands. Save and Load programs from within BASIC. From 
TEXT, every .DO file can be Loaded from or Saved to Disk 
by DISK POWER. 


• TELCOM ENHANCEMENTS 

Direct Access to Basic & TEXT from inside TELCOM. Kill, 
· Load, Save or Edit files without losing telephone communi- 
cations. You can see your files while uploading. With 
DISK POWER, it is all 11. 


* FULLY MENU DRIVEN 

Any DISK or RAM file is selected by the cursor. The stroke 
of a SINGLE function key will perform the desired task on 
the HIGHLIGHTED file. You may never have to remember 
or even type a filename again, when using DISK POWER! 


* NOT T JUST “FOR HACKERS ONLY” | | 
Though programmers will be surprised by the versatility of 
DISK POWER, regular users will find our operating system 
FAST, easy to use AND easy to understand. н 


* WRITTEN ВУ HUGO FERREYRA (SoftPower) 
In DISK POWER, you can expect to find the same ULTRA- 
features, innovation & ease of use that all users & reviewers 
found in TEXT POWER 100, which made it “ТНЕ BEST 
FORMATTER THERE IS FOR THE 100". | 


(514) 457-2917 


Use STAT М8М1Е, апа Log-on with ID: DISK using PASSWORD: POWER 


DISK POWER 100/200/102 549.95 05 


ТЕХТ РОУ/ЕН 100 $49.95 US 





or SAVE by buying the ULTRA POWER program pack: DISK POWER/TEXT POWER 100 FOR ONLY $89.95 us 


To order TEXT POWER 100, specify printer(s) used. The basic price includes support for one printer. Please add $10.00 for each additional printer you 
wish supported. All U.S. orders shipped from within the USA. Absolutely no custom forms, sales tax or duty required. Add $3.00 S&H to each order. 


USA (Except N.Y.) 1-800-448-4511 Ext. 313 
NEW YORK STATE ONLY 1-800-962-1480 Ext. 313 
ONTARIO & QUEBEC 1-800-255-1133 Ext. 313 


No surcharge for VISA or MC 
To order, call TOLL FREE: 


or send CHECK or MONEY ORDER to: 





Loan Officer can be compiled with the 
Microsoft BASIC Compiler. (Note: The 
new Quick BASIC Compiler does not 
work properly on the Tandy 1000.) 

When the program is loaded and run, 
the user is provided with a simple menu 
offering several choices, including 
“Amortization,” “Compare Length,” 
“Compare Rates” and “Exit Program.” 
The current selection is shown in inverse 
colors, and is changed by pressing the 
space bar. As the bar is pressed, the 
highlighted menu selection moves down 
one selection at a time, then back to the 
top choice. When the user decides on a 
selection, it is chosen by pressing the 
ENTER key while the selection is high- 
lighted. Additionally, a “help window” 
displays what each selection can be 
expected to perform as it is highlighted 
on the screen. All in all, it makes an 
attractive and user-friendly way to 
display menu choices. 
How it Works 

The programming involved is not at 
all complicated. After the initial display 
is created, a control loop in lines 370 
through 450 keeps track of what is going 


on. If the key pressed is the ENTER key, 
Line 390 forces the program out of the 
loop and into the routine requested. If 
the space bar is pressed, the selection 
indicator is advanced to the next menu 
choice by lines 400 through 440. As each 
choice is presented, a window displays 
what that particular choice will do. 

The rest of the program is broken up 
into three main sections: the regular 
amortization process (lines 570-1140), 
comparison of interest rates (lines 1180- 
1530) and comparing different lengths 
of loan payment schedules (lines 1650- 
2000). A short EXIT routine is included 
in lines 1570 through 1620. 

I have labeled strings and numerics 
descriptively in the listing to help you 
follow the program flow. The finance 
formulas are the common ones found in 
everyday math, dressed up for ease of 
program readability. Novice pro- 
grammers might like to take note of the 
use of PRINT USING to format both the 
screen and the printed page when data 
is displayed. This under-used but pow- 
erful command can make life a lot easier 
for a BASIC programmer. 


The listing: 

L "ЖЕНИ НИ КИ fede etesjedee ee ee ete ee eee ee ete deese ee eee 
HUER The LOAN OFFICER ж 
3% ж 
4 'х (С) 2/86 Leonard Hyre * 


1% Cambridge 


' 


100 keno 
110 '* MENU CREATION * 
120 “ххх кк клан 
130 ' 
140 ' 


Мр ж 


5 
ааа лла fee fe de AHH KKH 
7 
8 


'For the TANDY MSDOS series of computers 


15% KEY OFF:SCREEN 0,1:COLOR 7,4:CLS 


169 HEADER$=CHR$ (291)+STRING$ (78 , 205)+CHR$(187)+CHRS$(186)+SPACE$(24)+"T h e 
О F F I C E R"+SPACE$(24)+CHR$(186)+CHR$ (20g)-- STRINGS (78 , 205) +CHRS$ (188) 


AN 
170 PRINT HEADERS 


18) DEFDBL A,B: COUNT=9: PRIN- : LENG=@ : RATE=9 : MONPAY=9 


190 C$(1)=" Amortization 
C$(4)-" Exit Program 


":C$(2)-" Compare Length ":C$(3)=" Compare Rates " 
":DW=19 


200 TOP$=CHRS$ (291)+STRINGS (16 , CHR$ (205) )+CHR$(187) 
219 BOT$=CHR$ (2ØØ)+STRING$ (16 , CHR$ (205) )+CHR$(188) 


220 LOCATE 7,39:PRINT " 
230 LOCATE 8,39:PRINT " 


249 LOCATE 6,29:PRINT TOP$:LOCATE 14,29:PRINT BOT$: LOCATE 4,71:PRINT "by L.Hyre" 
250 FOR SIDES=7 ТО 13:LOCATE SIDES,29:PRINT CHR$(186):LOCATE SIDES,46:PRINT CHR$ 


(186):NEXT SIDES 


Loan Menu + 


260 LOCATE 10,30:СОІОВ 0,3:РВІМТ C$(1):COLOR 6,0 


Making it Work 

There is nothing tricky in typing in 
this program and it should run fine on 
any of the Tandy MS-DOS machines. 
If you do not wish to type it in, re- 
member that PCM ON DISK is available. 
Also, Delphi Group MSDOS will have 
the program available for downloading 
(at a nominal charge). If you prefer, 
send me $6 to cover costs and I will send 
you the program on a disk. Address 
requests or questions to P.O. Box 403, 
Cambridge, MD 21613. Be sure to 
mention what model computer you 
own. 

If you have the Microsoft BASIC 
Compiler (not Quick BASIC), this pro- 
gram is virtually ready to compile. You 
will need to change the EXIT routine to 
eliminate the *Exit to BASIC" choice. 
Add the following line: 125 DIMC$(4), 
LENG(4), RATE(4). This should take 
care of the changes needed to compile 
It. 

I hope you find The Loan Officer а 
useful and entertaining program. I've 
enjoyed creating and sharing it with 
you. 


LO 
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YES , i'm coming to Chicago! | want to save by buying tickets now at the special advance sale price. 
Please send me: Name 
three-day tickets at $9 each total... Address 
one-day tickets at $7 each сін... с LS rd ИН ұлық, State 
(Circle one) Friday Saturday Sunday Télëphonex. ла. А 


Saturday Breakfast at $12 each totali. Сотрапу 


TOTAL ENCLOSED О VISA O MasterCard O American Express 


(U.S. Currency Only, Please) Account Number 
O Also send те а hotel reservation card for the Hyatt Exp. Date 
Regency Woodfield ($60, single or double room). Signatuig = аа te ыы 
Make checks payable to: PCM. Mail to: PCMfest, The Falsoft Building, P.O. Box 385, U.S. Hwy. 42, Prospect, KY 40059. To make 
reservations by phone, call: (502) 228-4492. 


Advance ticket deadline: May 16, 1986. Orders received less than two weeks prior to show opening will be held for you at the door. 
Tickets will also be available at the door at a slightly higher price. Children under 4, free; 4 and over, full admission price. 
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LOCATE 11,39:PRINT C$(2) 
LOCATE 12,30:РЕІКТ C$(3) 
LOCATE 13,30:PRINT C$(4) 
COLOR 3,0:LOCATE 16,28:PRINT"<SPACEBAR> to Change":LOCATE 17,28:PRINT"« ENTE 
to Select":COLOR 6,0 
WIDE$=STRINGS$ (49 , CHR$(2@5)):LOCATE 20,19:РВІМТ CHR$(2@1) ;WIDES ; CHR$(187) : Loc 
23,19:PRINT CHR$(299) ;WIDES ; CHR$(188) : SIDES=CHRS$ (186)+STRINGS(49," ")+CHRS$(1 
:FOR SIDES-21 TO 22:LOCATE SIDES,19:PRINT SIDES:NEXT 
LOCATE 21,2%:COLOR 6,9:PRINT" Amortization: This option allows you":LOCATE 
22,20:РЕТМТ" to see a loan listed month by month !" 
330 LOCATE 10,30,0 
340 ' 
350 '*** Choice Made Неге *** 
360 ' 
370 CH$-INKEYS:IF CH$-"" THEN 370 
380 GOSUB 490 
390 ТЕ ASC(CH$)-13 THEN 450 
400 IF ASC(CH$)-32 THEN LOCATE DW,39:COLOR 6,0:РВІКТ C$(DW-9) :DW=DW+1 
410 IF DW-14 THEN DW=DW-4 
420 IF DW=1% THEN 500 ELSE IF DW-11 THEN 510 ELSE IF DW-12 THEN 520 ELSE 530 
430 LOCATE DW,3%:COLOR Q,3:PRINT C$(DW-9):SOUND (99*DW),.1:COLOR 6,0 
440 GOTO 379 
450 IF DW-19 THEN 570 ELSE IF DW-11 THEN 1650 ELSE IF DW-12 THEN 1180 ELSE IF DW 
-13 THEN 1570 
460 ' 
47g '*** HELP Windows *** 
480 ' 
490 WIPES=STRINGS$(49," "):COLOR ,@:FOR WIPE-21 TO 22:LOCATE WIPE,29:PRINT WIPES: 
NEXT:COLOR 6,0:ВЕТЏЕМ 
500 LOCATE 21,20:COLOR 6,9:PRINT" Amortization: This option allows you":LOCATE 
22,20:PRINT" to see a loan listed month by month !":GOTO 430 
510 LOCATE 21,20:COLOR 6,0:PRINT" Compare Length: What is the difference ":LOCAT 
E 22,20:PRINT" in financing longer or shorter periods.":GOTO 430 
520 LOCATE 21,20:COLOR 6,%:PRINT" Compare Rates: This options allows you ":LOCAT 
E 22,20:РЕТМТ" to compare available Interest Rates ! ":GOTO 430 
530 LOCATE 21,20:COLOR 6,0:PRINT" Exit PROGRAM- This selection lets you ":LOCATE 
22,20:PRINT" exit 'LOAN OFFICER' to MSDOS or BASIC.":GOTO 430 
540 ' 
550 '*%** AMORTIZATION PROGRAM *** 
560 ' 
570 CLS:PRINT HEADERS 
58% LINE INPUT " How Much Would You Like To Borrow? $"; PRINS : PRIN=VAL( PRINS) 
590 LINE INPUT " How Many Months Will You Finance: "+ LENGS : LENG=VAL(LENGS ) 
600 LINE INPUT " What Interest Rate Do You Anticipate? ";RATE$:RATE=VAL(RATES) 
610 A=RATE/12Q@: B=1-1/(1+A) “LENG : LOAN=PRIN : MONPAY=PRIN*A/B 
620 МОМРАҮ-ІМТ(МОМРАҮж100--.5)/100 
630 COLOR 2:PRINT:PRINT STRING$(89," "):PRINT"Monthly Payment Would Be $";:PRINT 
USING " ###,###.##";MONPAY:PRINT"The TOTAL Interest paid= $";:PRINT USING " ### 
НЕ"; (MONPAY*LENG) -PRIN 
640 PRINT: PRINT STRING$(80," "):COLOR 3 
650 PRINT"SELECT -> «S»creen Amort List <P>rinter Amort List <M>enu" 
660 AK$=INKEY$:IF AK$=""THEN 660 
670 ТЕ AK$="S" OR AK$="s" THEN 710 
680 IF AK$="M" OR AK$="m" THEN RUN 
690 IF AK$="P" ОВ AK$="p" THEN 910 
700 GOTO 660 
710 GOSUB 870 
720 FOR ZZ-1 TO LENG 
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740 IF COUNT<12 GOTO 780 

750 PRINT " ";FINS:LOCATE 23,27:COLOR 7,4:PRINT "Press «ANY KEY» to Continue 
760 AKS-INKEY$:IF AK$=""THEN 760 

770 COUNT=%:GOSUB 870 

780 IPAY-PRIN*A:IPAY-INT(IPAY*10Q4.5)/19g 

790 PPAY=MONPAY - IPAY: PRIN=PRIN- PPAY: PPAY=INT ( PPAY*199+.5) /199: PRIN-INT(PRIN*10Q-- 
.5)/199 

800 PRINT " *"::PRINT USING "### ": ZZ; 

810 PRINT"*";:PRINT USING " HHH , HHH HH"; PRIN; :PRINT"°";:PRINT USING " ###, ### 
.##" ;MONPAY; : PRINT "°";:PRINT USING " HHH ЕН. ЊЕ" ; PPAY; : PRINT"°"; : PRINT USING 
“det, tHE IHE" ; ТРАУ ; PRINT" °" 

820 COLOR 2:12 РКІМ<-0 THEN 840 

83% COUNT=COUNT+1:NEXT ZZ 

840 PRINT " ";FINS:LOCATE 23,6:COLOR 7,4:PRINT"Hit «ANY KEY» to Continue..." 
850 AKS-INKEYS:IF AK$=""THEN 850 

86% RUN 

870 COLOR 2,9:CLS:COLOR 4,7:PRINT HEADER$:PRINT:COLOR 7,0:РЕТМТ "Borrowing $";LO 

АМ; "FOR ";LENG;"MONTHS АТ"; КАТЕ; "%" 

880 COLOR 2,0:РЕІМТ STRINGS (89,196) 

890 РКІМТ " PAYMENT — BALANCE PAYMENT ———PRINCIPALs————— INTEREST 
гі 

900 RETURN 

910 COLOR 3,1:PRINT:PRINT" Printer selected Advance paper to proper locati 
on and «PRESS» any key. ":COLOR 6,0 

920 AKS=INKEY$: IF AK$-""THEN 920 

939 PRINT:PRINT" Please Wait Printer Operation in Progress." 

940 LPRINT STRINGS$(89," "):LPRINT:LPRINT SPACE$(24);:LPRINT"T HE LOAN ОЕ 
F I С E R":LPRINT 5ТЕІКС5(80," "):LPRINT 

950 LPRINT"AMOUNT OF LOAN: $":LOAN:" at ":ВАТЕ;"% For ";LENG;" Monthes." 

960 LPRINT STRINGS$(89," "):LPRINT"PAYMENT ғ BALANCE PAYMENT PRINCIP 

AL INTEREST" 

970 FOR ZZ-1 TO LENG 

980 IF COUNT<48 THEN 1040 :REM PRINT 48 LINES PER PAGE 

990 FOR NXTPG-1 TO 19:LPRINT:NEXT 

1000 LPRINT STRING$(89," "):LPRINT:LPRINT SPACE$(24);:LPRINT"T HE LOAN 0 
FF ICE R":LPRINT STRING$(89," "):LPRINT 

1010 LPRINT"AMOUNT OF LOAN: $";LOAN;" at ";RATE;"% For ";LENG;" Monthes." 

1020 LPRINT STRING$(89," "):LPRINT"PAYMENT # BALANCE PAYMENT PRINCI 
PAL INTEREST" 

10302 COUNT=9 

1040 IPAY-PRIN*A:IPAY-INT(IPAY*19Q4.5)/199 

1050 PPAY=MONPAY-IPAY: PRIN=PRIN-PPAY: PPAY=INT ( PPAY*199+.5) /19@: PRIN=INT (PRIN*199 

+.5)/199 

1960 LPRINT USING "#### 22: 

1070 LPRINT USING " жн ###.##"; PRIN; MONPAY; PPAY; ТРАХ 

1280 IF PRIN <=Ø THEN 1100 

1999 COUNT=COUNT+1:NEXT 22 

119g LPRINT STRING$(89," ") 

1110 PRINT:PRINT" PRINTING OPERATON COMPLETED!" 

1129 COLOR 7,4:PRINT:PRINT" Hit «ANY KEY» to Continue...." 

1139 AK$=INKEY$:IF AK$-""THEN 1139 

1140 RUN 

1150 ' 

1160 '*%** COMPARING INTEREST RATES *** 

1170 ' 

1180 CLS:PRINT HEADER$;:COLOR 2:LOCATE CSRLIN,22:PRINT"Comparison of Different I 
nterest Rates":PRINT STRING$(89," "):PRINT 

1190 ' 
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1200 COLOR 7:INPUT"Enter the Amount of the Loan";PRIN:INPUT"How Long Will You Fi 
nance (in Months) ";LENG:RT-1:COLOR 2:PRINT STRING$(89," ") 

1210 PRINT"Enter RATES to compare (Up to 5 may be entered or enter '' to end) ? 
1220 FOR X-1 TO 5 

1230 PRINT "Interest Rate 3";X;:PRINT"—»";:INPUT RATE(RT) 

1240 IF RATE(RT)-0 THEN 1270 

1250 RT=RT+1 

1260 NEXT X 

1270 FOR WIPE-6 TO 20:LOCATE WIPE,1:PRINT SPACES$(89):NEXT WIPE:LOCATE 6,1 

1280 PRINT "Length of Loan is ";:PRINT USING "###";LENG;:PRINT " Months." 

1290 COLOR 7 

1300 PRINT CHR$(213);STRINGS$(78,2905);CHR$(184); 

1319 FOR Y-1 TO 5 

1320 IF RATE(Y)=@ THEN 1400 

1339 A-RATE(Y)/1299:B-1-1/(1-A) ^LENG:MONPAY-PRIN*A/B 

1340 MONPAY-INT(MONPAY*1QQ--.5)/1909: COST-MONPAY*LENG 

1350 COLOR 7:PRINT CHR$(179);" Borrow $";:PRINT USING "###,###.##"; PRIN; : РКІМТ" 
at";:PRINT USING " ##.##";RATE(Y);:PRINT " %";:COLOR 6:PRINT " РАҮМЕМТ5- $";:P 
RINT USING "жн ###.##";MONPAY;:COLOR 2:PRINT" INTEREST=$";:PRINT USING "###, ### 
. ##" ; COST- PRIN; 


136% COLOR 7:LOCATE CSRLIN,8@:PRINT CHR$(179); 

1370 PRINT CHR$(212) ;STRINGS$(78, 295) ; CHR$(199) ; 

1380 PRINT CHR$(213);STRING$(78,205) ;CHRS$(184); 

1390 NEXT 

1400 PRINT CHR$(179);:COLOR 4:PRINT " Press <P> for PRINTER - Else An 

y other Key For MENU.";:LOCATE CSRLIN,89:COLOR 7:PRINT CHR$(179); 

1410 PRINT CHR$(212);STRING$(78,205) ; CHR$ (190); 

1420 AKS-INKEYS$:IF AK$-""THEN 1420 

1430 IF АК9="Р" OR AK$-"p"THEN 1440 ELSE RUN 

1440 LPRINT STRINGS(89," "):LPRINT:LPRINT SPACE$(24);"THE LOAN OFFIC 

E R":LPRINT STRING$(89,"_"):LPRINT 

1450 LPRINT" LENGTH OF LOAN IS ";:LPRINT USING "###";LENG;:LPRINT" months." 

1460 LPRINT STRING$(89," ") 

1470 FOR Z- 1 TO 5 

1480 IF RATE(Z)-0 THEN 1530 

1490 A=RATE(Z)/129@: B=1-1/(1+A) ^LENG: MONPAY=PRIN*A/B 

1500 MONPAY=INT (MONPAY*199+ .5) /100: COST=MONPAY* LENG 

1510 LPRINT " Borrow $";:LPRINT USING "####,###.##";PRIN;:LPRINT" at";:LPRINT US 

ING " ##.##";RATE(Z);:LPRINT " $";:LPRINT " PAYMENTS= $";:LPRINT USING "##,###. 

Ян" ;MONPAY;:LPRINT" INTEREST= $";:LPRINT USING "###, ЊЕ. ЊЕ" ; COST- PRIN 

1520 LPRINT STRING$(89," "):NEXT Z 

1530 RUN 

1540 

1559 ' *** EXIT OPTIONS ххх 

1560 ' 

1570 CLS:PRINT HEADERS: PRINT: PRINT 

1580 PRINT"Please Choose From Menu:": PRINT" 1> Exit. to BASIC”: PRINT" 
2» Exit to MSDOS": PRINT" 3» Do NOT Exit!" 

1590 AKS-INKEY$:IF AK$-""THEN 1590 

1600 IF AKS="L"THEN CLS:NEW 

1610 IF AK$-"2"THEN SYSTEM 

1620 RUN 


1639 ' *** COMPARE DIFFERENT LENGTH LOAN PERIODS *** 
1649 ' 


1650 CLS:PRINT HEADERS; : PRINT" Comparison of finance costs for diff 
erent time periods.":COLOR 2 

1660 INPUT"Amount of LOAN"; PRIN: INPUT"INTEREST ВАТЕ"; КАТЕ 

1679 PRINT" Enter TIME PERIODS to compare (Up to 5 may be entered or enter "0! 
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to end) ?":COLOR 3:PRINT" [ MUST ВЕ AS TOTAL NO. ОҒ MONTHS ]":COLOR 2:RT=1 

1689 FOR X-1 TO 5 

1699 PRINT"Period No.";X;:INPUT LENG(RT) 

179% IF LENG(RT)-U THEN 1730 

1710 RT=RT+1 

1720 NEXT X 

1730 FOR WIPE-5 TO 2%:LOCATE WIPE,1:PRINT SPACE$(89):NEXT WIPE:LOCATE 6,1 

1740 PRINT" For A LOAN of $";:PRINT USING" ###,###.##";PRIN;::PRINT" at ";:PRIN 

T USING " ##.##";RATE;:PRINT "% Interest..." 

175% COLOR 7 

176% PRINT CHR$(213);STRING$ (78,205) ; CHR$(184) ; 

1770 FOR Y-1 TO 5 

1780 IF LENG(Y)=@ THEN 1869 

1790 A=RATE/129@:B=1-1/(1+A) “LENG (Y) :MONPAY=PRIN*A/B 

1800 MONPAY=INT (MONPAY*199+.5) /100 : COST=MONPAY*LENG (Y) 

1810 PRINT CHR$(179);"  Length-";:PRINT USING "###";LENG(Y);:PRINT" Months"; :COL 

OR 6:PRINT" PAYMENTS at $";:PRINT USING "##,###.##";MONPAY;:PRINT" /Mo.";:COLO 

R 2:PRINT" TOTAL INT- $";:PRINT USING "###, ###.##";COST-PRIN; 

1820 COLOR 7:LOCATE CSRLIN,89:PRINT CHR$(179); 

1830 PRINT CHR$(212);STRING$ (78,205) ; CHR$(199) ; 

1840 PRINT CHR$(213) ;STRINGS$ (78,295) ;CHRS$(184) ; 

1859 NEXT Y 

1860 PRINT CHR$(179);:COLOR 4:PRINT" Press <P> for PRINTER - Else 

Any Other Key For MENU.";:LOCATE CSRLIN,8%:COLOR 7:PRINT CHR$(179); 

1870 PRINT CHR$(212) ;STRINGS(78, 205) ; CHR$(199) ; 

1880 AKS=INKEY$:IF AK$-""THEN 1880 

1890 IF AK$-"P" OR AK$-"p"THEN 1900 ELSE RUN 

1900 LPRINT STRING$(89," "):LPRINT:LPRINT ЅРАСЕ$(24);"ТНЕ LOAN OFFIC 

E R":LPRINT STRING$(89," "):LPRINT 

1910 LPRINT" For А LOAN of $";:LPRINT USING" ###,###.##";PRIN;:LPRINT" at ";:LP 

RINT USING " ##.##";RATE;:LPRINT "% Interest..." 

1920 LrRINT 5ТҺІКС5(80," ") 

1930 FOR Z- 1 TO 5 

1940 IF LENG(Z)-9 THEN 2000 

1950 A-RATE/1299:B-1-1/(1*A)^LENG(Z) : ONPAY-PRIN*A/B 

1960 MONPAY-INT(MONPAY*19QQ-.5)/199 : COST=MONPAY*LENG (2) 

1970 LPRINT " Length-";:LPRINT USING "###";LENG(Z);:LPRINT" Months PAYMENTS a 

t $";:LPRINT USING "“##, ###.##";MONPAY;:LPRINT" /Mo. TOTAL ІКТ- $";:LPRINT USING 
UHHH | ЯН ЊЕ" ; COST- PRIN 

1980 LPRINT STRING$(89," ") 

1999 NEXT Z 

2000 RUN 


¢heapware® Utilities 
for the Tandy™ 1000, 1200, 3000 and compatibles Chicago == the place 


BASIC Cross Reference Facility: This program will find all literal variables in any 
BASIC program, alphabetize them and prini the list. It can optionally print the source 
code and the line numbers on which each variable was used. The program comes with a 
money back guarantee. Cail or write for details $23.00 


BASIC Program Printer: This will read any ASCII or tokenized BASIC program file to be Ma 23-25 
whether or not that program was saved with the ,P option (protected) and output it to у á . 
your printer, disk or video SH It will also type any ASCII file and allow multiple 
copies under program control. . s $20.00 
Price includes first class postage. VISA/MasterCard accepted. 
Information/Orders call: j B 0 
Robert L. Nicolai 800- APR (642-6524) РСМ : ее аде 


4038 №. Ninth Street 


St. Louis, МО 63147 314- 621-16181 іп Missouri CERTIFICATION 


Tandy is a trademark of Tandy Corporation 
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TANDY IS DANDY... 


...until you compare 







INTRODUCTORY OFFER РУМА, | 








Zuckerboard 
Expansion 






Tandy 


Memory Plus 
Send the Zuckerboards | need for my TANDY 1000 right away. 


Here's my check O or money order O MADE PAYABLE TO AT.D. 





DMA Inc. 







































*with mouse 





TELEPHONE( ) 


A.T.D. 1287 Lawrence Station Rd., Sunnyvale, CA 94089 


NEN W. Курана ae aci radio 


ZUCKERBOARD PRODUCTS FOR THE TANDY 1000 


MultifutcHón Boars. ое 68$ eti wapu asta Ba вас е $249 
Includes DMA controller chip, 512K memory, Clock/calendar with 20 year battery, 
Serial port, and Ramdisk/Print spooler software. 


1 

1 

' 

' 

1 

____ЕМ with 256K @ 5109 = ^ Subtotal 1 

with 256K $319.95 EM with 512K @ 5149 = ____ CA residents П 

' _____ С!оск/сајепдаг @ $ 49 = ____ ада7% tax ' 

with 512K $519.90 ___ 256K upgrade @$ 49 = ___- Shipping___—_—$6.00 Н 

" — _ ВАМ Disk Amount 1 

Options: Print spooler @$ 49 = Enclosed | 
ж Multifunction Board @ $249 = 

Clock/Calendar $ 99.95 (O ME Hard Disk i9» - i 

256K Upgrade $199.95 --20 MB Hard Disk 9 $599 = ___ : 

RAM Disk/ M NAME i 

Print Spooler ADDRESS ' 

' 

Warranty 90 Days CITY STATE ZIP - 

! 

I 

1 

1 

1 

i 


Internal Hard Disk 10MByte 2) os. ves) ла ee ss s ан < и $529 
DOING Cis ILS C3 eX sassa эзе rmi $599 
Half-height. Includes controller and cables. Mounts internally, above floppy drive A. 
Requires system with DMA already installed. 


CALL TOLL-FREE TO ORDER 
CA (800) 233-6874 
(800) 222-4920 


Dr. Dr. Zucker 





it’s another 


ZUCKERBOARID 


ат D 1287 Lawrence Station Road < Sunnyvale, CA 94089 » (408) 734-4631 


ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc. 
TANDY 1000 is a Trademark of Radio Shack, a Division of Tandy Corporation. 


АП prices subject to change without notice due to fluctuations in the chip market. 





|| Feature 


Custom design your own video character 
fonts 








Video Character Editor 
By Davy Crockett 


ile perusing the Memory 
Map for the Tandy 2000 I 
noticed a very interesting 


entry: *F800:0 to F9FF:0 Video Char- 
acter RAM." The key word here is 
“RAM.” This means you can write 
information into it instead of only being 
able to read from it. Well, my eyes lit 
up! You mean I can actually change the 
characters that display on the screen? A 
small experiment confirmed that it can 
be done. Enter the short program con- 


tained in Figure 1 and run it. If you 
enter everything correctly, the entire 
screen will be lined just like notebook 
paper. Change the 255 in Line 30 to zero 
and run it again to remove the lines. 





The Tandy 2000 uses a block of 
pixels, eight across by 16 down, to 
display each character on the screen. 
Each pixel corresponds to a specific bit 
in the video character RAM. It takes 16 
bytes with eight bits each to define a 
character for the video screen. These 16 
bytes are interspersed with what seems 
to be attribute bytes, but the attribute 
bytes are ignored by the video display 
hardware. Therefore, each character 
requires 32 bytes to completely define 
its pattern of on and off pixels. The 
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character ‘A’ is stored in the sixty-fifth 
block of 32 bytes with the pattern for 
each raster scan line in the even- 
numbered bytes as shown in Figure 2. 

Publishers use the term “font” to refer 
to the complete collection of letters and 
symbols of the same size and style. I will 
use the same term to apply to the 
collection of pixel patterns that define 
characters which may be displayed on 
the video screen. The program EDIT 
FONT .BAS allows you to edit these pixel 
patterns and change the characters. 

The original (or default) font is in- 
itialized in the video character RAM 
during the boot-up sequence. EDI TF ONT 
refers to this area in memory as the 
“active font” since any changes to the 
values immediately affect what is dis- 
played on the screen. In addition to the 
active font, EDITFONT uses the upper 
portion of BASIC's work area to store a 
*working font." Changes made to the 
working font do not take effect until the 
working font is moved to the active font 
memory locations. Space for the work- 
ing font must be reserved by using the 
“/M” switch with a value of 57343 when 
loading BASIC. I use a batch file contain- 
ing the single line: BASIC EDITFONT ^ 
M:52343. 


Editing a Font 
Initially the work area contains ran- 


НН 7////////////, 


7 





Жиын) Ж 


, tee # “mamy е mme ЖУЛ 


dom garbage left over from whatever 
program happened to execute before 
EDITFONT. To begin an edit session you 
must first load the work area with a 
valid font. The work area may be loaded 
from the active area or from a font that 
you have previously saved to disk. The 
first time the program is used you will 
have no fonts on disk, so the easiest way 
to begin is to transfer the active font to 
the working font using the F6 key. That 
way you begin with a complete set of 
characters that only need modification. 
Once a font is loaded you may select 
a character to modify. Selection is 
accomplished by simply pressing the 
key for the character you wish to mod- 
ify. When you wish to modify a charac- 
ter that is not found on the keyboard, 
hold down the ALT key and enter the 
decimal number corresponding to the 
character on the numeric keypad. 
Once a character has been selected 


7487779 jh , 
: Video Charact er AM 
PEFEA IE] 

Peeters ee fi 


WHAT 


ЖЕН 


БА. 


4; jji ЖДУ) 
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ffi 
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227%) 
FH VTE TS FEF 


ЕЛЫ ditt; Fifi 


‘fi Ы, 
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you are placed in edit mode. The bit 
pattern for that character is displayed in 
four areas on the screen. Two blocks 
contain an oversized representation of 
the pixel pattern. An asterisk is used to 
represent a pixel being turned on and a 
blank means turned off. The second two 
smaller blocks show the character as it 
will actually be seen in double-width 
mode on the screen. The two blocks on 
the right remain constant until you exit 
edit mode, while the two blocks on the 
left change immediately when you set/ 
reset pixels. 

Bit patterns may be changed by mov- 
ing the cursor around in the large block 
and setting or re-setting the pixels. 
Pressing the F1 key sets the current pixel 
to on; F2 re-sets the pixel (turns it off). 
When you are satisfied with the results, 
save the character back to the working 
font by pressing the F3 key. If at any time 
you become displeased with the results 
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of your editing, press the F4 key and апу 
changes you have made are ignored. 
Don't worry if you cannot remember 
these ‘F’ key functions — a little refer- 
ence guide similar to Figure 3 is always 
on the screen. 


Disk File Fonts 

EDITFONT.BRS will not allow you to 
exit by pressing the F9 key until you first 
save the font you have been working on 
to disk. This protects you in case the F9 
key is accidentally pressed. 

Pressing the F12 key saves the work- 
ing font to a disk file. You will be 
prompted for the font name. Do not 
include an extension, as EDI TFONT . BRS 
automatically adds .FNT for a filename 
extension. In addition to saving the 
working font to a disk file, you may 
simply transfer the working font to the 
active font. Function key F10 can then 
display the complete set of ASCII 
characters generated so you can see 
what they look like together. 

The last two options on the functions 
menu allow you to save and load the 
active font directly from a disk file. The 
default extension of .FNT is supplied for 
these files, so you should not enter an 
extension. 


Loading the Active Font 

Now that you have a font in a disk 
file, how do you get it loaded into the 
video character RAM? You could write 
a short BASIC program that executes in 
an RUTOEXEC.BRT file and utilizes the 
BLORD command to load the font. 1 
found this technique slow and, due to 
the inefficient batch processing by MS- 
DOS, it generated a very unpleasant 
thrashing sound in the disk drive. 1 
figured there must be a better way. Thus 
was born LORD FONT . COM, shown in the 
second program listing. It accepts an 
.FNT file through the standard input 
and loads it to the correct memory 
locations. You can include the com- 
mand LOADFONT<fontname.FNT in 
your RUTOEXEC . BRT file to load a font 
automatically when booting up. For 
those who do not have an assembler, 1 
have included a BASIC program that 
generates the LORDFONT . COM program. 

I have used EDITFONT .BAS to create 
a font containing all of the Model 1/11 
graphics characters and to run pro- 
grams I have converted from the Model 
ПІ. Instead of changing all of the 
CHR$(xx) statements, | simply include 
the statement: DEF SEG = &HF800 : 
BLOAD “GRAPHICS.FNT”, 9: DEF SEG. 


% 











Listing 1: 
100 ' МА eS SS SS пен тен SS SS SS SS SS SSS SSS SSS SS SSS SS SS SS пп === 
112 '* ж 
120 '* Yeeye yeye ДУО ДОЗЕ ЈОД ЗО ЈОЈ УУСУ С ЈОЈ ЈОЈСЈОЈСЈС ЈОЈ EDITFONT.BAS * 
130 '* же EDITFONT.BAS еее Version 1.0 ж 
140 '* МЕЈО ЈО yeye pe pe О yeye ЈОЈ МО ЈЕ ЈОЈ ЗС yeye geyeyeyeye 13 Арк11 1985 ж 
15g '* * 
160 '* Davy Crockett * 
170 '* 5897 Cherrywood Lane * 
180 '* Apartment #194 ж 
190 '* Greenbelt, Maryland 20770 * 
299 '* * 
219 '* This program will allow you to edit the character * 
229 '* bit patterns for the Tandy 2999 Monochrome Video ж 
232 '* display. These bit patterns are stored in memory * 
249 '* at segment &HF899 in the address space. * 
25g '* * 
269 '* Execute with command: basic editfont /M:57343 * 
279 '* * 
289 = ======—=====——=======—=Y -===========% 
299 ' 
322 ' Initialization Section. 
310 ' 
320 DEFINT A-Z : WIDTH 40 : KEY OFF : CLS : GOSUB 1790 : GOTO 1639 
339. * 
34g ' Set a bit routine (F1) 
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Check Out Our Systems — High QUALITY 4 layer TURBO motherboard at ће LOWEST prices. 
Our hard drive systems — an EXTRA megabyte of Storage FREE 
(more megabytes for less megabucks) 
Our monitors are high resolutions with minimum 1,000 lines 
— They even have their own tilt and swivel base at no added cost. — 
Powered by a heavy duty power supply, and offering TRUE turbo speed. 
ONE FULL YEAR WARRANTY 


COMPARE OUR SYSTEMS — TURBO M is the COMPETITION 
SYSTEM-A-SINGLE FLOPPY SYSTEM TURBO M PC COMPLETE SYSTEM 


$899.95! Dual Speed CPU — 4.77 AND TURBO 
NEC V20 PROCESSOR 
d 640 K memory 2 parallel ports 
š 8 slot motherboard Clock calendar 
135 Watt Power Supply Game Port 
quunt Monochrome TTL Card Keyboard 5151 Style 
қ "тын: Monochrome Display High Res Ram spooler and 
4 PST H CHANT h Tilt and Swivel Base Monitor Printer spooler system 
V Serial port (2nd port opt.) DOS 2.11 


SYSTEM 22-HARD DRIVE SYSTEM 
22 MEGABYTE SYSTEM 


$1,399.95! 
Toll Free Ordering 1-800-343-8841 


TURBO M / AT—COMPLETE SYSTEMS 
STARTING AT $2,359.95 !!! 
ONE FULL YEAR WARRANTY 

Comes Complete with 
6 and 8 MHZ Switch Selectable 
8 Slot Motherboard 
192 Watt Power Supply 
1.2 Megabyte Floppy Drive 
1 Full Megabyte of Memory on Motherboard 


Clock Calendar 


I SANNA | 2 Parallel Ports — 2 Serial Ports 
< Hercules Compatible Monochrome Card 


JI EUH SEN IR ae OME VVA Monochrome Display-High Resolution 
INTRA: BLU. Tilt and Swivel Base 
DOS 3.1 — AT Keyboard 


TURBO-M Motherboad| Monochrome Graphics Fioppy 1/О Card Winchester Hard 10 Megabyte and 20 Megabyte Drives Color Graphics 
Dual Speed Card with Controls Two Floppy Drive Controller Complete System Card with 
Printer Port Drives, Senal Port Оте, Controller. Cables Printer Port 
Parallel! Port Clock and easy to follow 
Calendar Game Port instructions. 


$299.95 $94.95 $109.95 З 
135 Watt ulti Function Card with] 5151 Compatible Monochrome Monitor Flip Top Cabinet 
Power Supply Space for ЗВАК о! eyboard with Separate | with High Resolution Control up to with Speaker 
Memory. Зепа! Port. Cursor and Tilt/Swivel Base Four Drives 
Parallel Port Clock Number Pads 
Calendar. Game Port 


$89.95 $89.95 $124.95 $179.95 $79.95 $80.00 $64.95 


TM 
MEGADISK" HARD DRIVES 
Our Hard Drive Systems Are Compatible With 
IBM PC and AT, HEATH/ZENITH, COMPAQ, COLUMBIA, PC CLONES, TAVA, EAGLE 
TRS/80 Models I / III / IV / 4D / 4P / MAX 80 / COLOR COMPUTER, Tandy 1000 
Systems come complete with drive, controller, cables, Systems come complete with one free software driverfor TRSDOS 6, 
hardware and easy to follow instructions. LDOS 5.1.x, DOSPLUS 3.4/4, or NEWDOS 80.CP/M is available. 
5 megabytes ....... ....... Starts at $239.95 5 megabytes. ..... e ....... $449.95 
10 megabytes SN ....... Starts at $369.95 10 megabytes .. ......... 9679.95 
20 megabytes.. Б. қО-....... Starts at $469.95 15 megabytes.......... атала жата, T DO 
60 megabytes .... € .... Starts at $1,299.95 20 meégabytes МУ а es о 
24 megabytes ...... ...... 9899.95 
REMOVAB LE MEDIA SPECIAL 30 megabyte-fixed & removeable .....$1,399.95 
5 Megabyte Cartridge Hard Drive Now 40 megabytes «а си ++ ++ $1,299.95 
Specially Priced! 50 megabytes ...... LE tis $1,449.95 
Warranty Information: TURBO-M systems come with a full year warranty for parts and labor. 
TURBO-M systems are guaranteed to run all programs such as LOTUS, SYMPHONY, AUTOCAD, 
FLIGHT SIMULATOR, DBASE, MICROGRAPFX, WORDSTAR, LEADING EDGE W/P. RBASE 
MEGADISK hard drives are fully warranteed for parts and labor. 


TERMS and CONDITIONS: SO FTWAR E SU PPO RT, | М С Service 8 Returns It is our policy to repair all service 


All prices are cash discounted. However, we d reti x a 2 
accept MC. VISA AMEX & DISCOVER credit cards 1 Edgell Road EDU tiae Ie Инк ын ta Раба 
POR ессе No deposit required. Framingham, MA 01701 hse zo детте ч PR 

5 speedy service 
Беке ошер Pase School 1-617-872-9090 IBM. TAVA. COLUMBIA. 5151. COMPAQ. EAGLE 
Shipping Costs are calculated per order Hours: Mon.-Fri. 10 am to 5:30 pm (est) Sat 4:00 pm Exc а ва idus 


Please call for total 2 T 

Борел of all in-stock products are made within ТОН Free Ordering 1 -800-343-884 1 EE Cord Ed SOD Сын ЗИН Бри 
4 hours, same day service is available upon iri H rub + 

recusa айаш cost Dealer Inquiries Invited 1986 Software Support. Inc. Ali nahts reserved 
Not responsible for typographical errors. 





IF МОТ ED THEN RETURN ELSE PRINT BSS; : М(Ү)-М(Ү) OR 2^X : GOTO 419 
Reset a bit routine (F2) 


IF NOT ED THEN RETURN ELSE PRINT BR$; : N(Y)-(N(Y) OR 2^X) XOR 2^X 
DEF SEG = ACTIVE.SEG : POKE 32-«Y*2,N(Y) : DEF SEG : GOTO 750 


End Edit and save character (F3) 


IF NOT ED THEN RETURN ELSE ED-F$ : SV-T$ 
FOR К= TO 15 : POKE WORK.OFF-BYTE$*324K*2,N(K) : NEXT : RETURN 
' 


t End Edit and do mot save character (Е4) 


IF NOT ED THEN RETURN ELSE ED=F% : RETURN 
Working Font to Active Font (F5) 


GOSUB 1540 : LOCATE 24,2 : PRINT "* Loading Active Font"; 
FOR M-3 TO 255 : FOR K- TO 15 : DEF SEG : B=PEEK(WORK. OFF+M*32+K*2) 
DEF SEG = ACTIVE.SEG : POKE M*32«K*2,B : NEXT : NEXT : GOSUB 1540 : RETURN 


Active Font to Working Font (F6) 


GOSUB 1540 : LOCATE 24,2 : PRINT "* Loading Working Font"; 
FOR М=3 TO 255 : FOR К= TO 15 : DEF SEG = ACTIVE.SEG : B-PEEK(M*32-«K*2) 
DEF SEG : POKE WORK.OFF+M*32+K*2,B : NEXT : NEXT : GOSUB 1540 : RETURN 


Return to MS-DOS (F9) 


IF NOT SV THEN LOCATE 23,2 : PRINT ">>--> Nothing Saved!"; : SV-T$ : RETURN 
WIDTH 82 : CLS : SYSTEM 
' 


, Cursor control routines 

' 

Х-7 : Y=9 : LOCATE Үғ2,10-Х,1 : RETURN :'initial location 
Ү-(Ү-1) AND 15 : LOCATE Y+2,19-X,1 : RETURN :'up arrow 

Ү=(Ү+1) AND 15 : LOCATE Y+2,19-X,1 : RETURN :'down arrow 
-X,1 
1 


, 


, 


X=(X+1) AND 7 : LOCATE Y+2,19 : RETURN :'left arrow 
: RETURN :'right arrow 


X-(X-1) AND 7 : LOCATE Y+2,1g-X, 


, Disk Font to Working Font (Ғ11) 

' 

GOSUB 1510 

IF ED THEN LOCATE 23,2 : PRINT ">>--> Can't Load in EDIT mode!"; : RETURN 
IF NOT SV THEN LOCATE 23,2 : PRINT ">>--> Nothing Saved!"; : SV-T$ : RETURN 
LOCATE 21,2 : PRINT "Fll:Load Font: "; : LINE INPUT FS$ 

IF FS$="" THEN RETURN 

ON ERROR GOTO 879 : FS$=FS$+".fnt" : BLOAD FS$,WORK.OFF : ON ERROR GOTO 0 
GOSUB 1510 

LOCATE 19,8 : PRINT FS$;" "; : ED=F% : GOTO 719 

GOSUB 1510 : LOCATE 23,2 : PRINT ">>==> Fll:Load error";ERL;ERR; : RESUME 82 


Disk Font to Active Font (F7) 


GOSUB 1510 
LOCATE 21,2 : PRINT "F7:Load Font: "; : LINE INPUT FSS : IF Е59-"" THEN КЕТО 
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RN 
930 ON ERROR GOTO 950 : FSS$=FS$+".fnt" : DEF SEG = ACTIVE.SEG : BLOAD Е55,0 
949 DEF SEG : ON ERROR GOTO g : GOSUB 1510 : GOTO 719 
950 GOSUB 1519 : LOCATE 23,2 : PRINT ">>--> F7:Load error";ERL;ERR; : RESUME 920 
969 ' 
970 ' Active Font to Disk Font (F8) 
989 ' 
990 GOSUB 1510 
LOCATE 21,2 : PRINT "F8:Save Font: "; : LINE INPUT Е5$ : IF Е55="" THEN RET 


ON ERROR GOTO 1939 : FS$-FS$-«".fnt" : DEF SEG = ACTIVE.SEG 
BSAVE FS$,0,&HIFFÜ : DEF SEG : ON ERROR GOTO Ø : GOSUB 1510 : GOTO 719 
GOSUB 151) : LOCATE 23,2 : PRINT ">>--> F8:Load error";ERL;ERR; : RESUME 10 


Save a Font routine (F12) 
GOSUB 1519 


IF ED THEN LOCATE 23,2 : PRINT ">>--> Can't Save in EDIT mode!"; : RETURN 
LOCATE 21,2 : PRINT "Fl2:Save Font: "; : LINE INPUT FS$ : IF FS$="" THEN RE 


ON ERROR СОТО 1139 : FS$=FS$+".fnt" : BSAVE FS$,WORK.OFF,&HlFFg 

ON ERROR GOTO Ø : GOSUB 1510 : SV-T$ 

LOCATE 19,8 : PRINT FS$;" "; : ED=F% : GOTO 710 

GOSUB 1510 : LOCATE 23,2 : PRINT ">>==> F12:Save error";ERL;ERR; : RESUME 1 


Display Active Character Font (F19) 


FLOP=FLOP+1 : GOSUB 1510 : ON FLOP GOTO 1189,1239,1259 

LOCATE 20,1 : PRINT Ascii Characters " 

LOCATE 21,1 : PRINT " ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567899 " 

LOCATE 22,1 : PRINT " abcdefghijklmnopqrstuvwxyz !Q4$*$^&*() " 

LOCATE 23,1 : PRINT " <>7:() +,./;'[]-=\~-]|' Davy Crockett " 

LOCATE 24,1 : PRINT Ascii Characters 4 "7 COTO 719 
LOCATE 20,2 : FLIP-128 : GOSUB 1269 : LOCATE 22,2 : FLIP-144 : GOSUB 1260 
LOCATE 24,2 : рн 4 : GOSUB 1269 : GOTO 710 

LOCATE 20,2 : FLIP-176 : GOSUB 1260 : FLOP-g : GOTO 719 

PRINT USING" ### “;FLIP; : FOR K=p TO 15 : PRINT CHR$(FLIP+K);" "; : NEXT 
RETURN 


Fill in the blocks routine 


FOR К= TO 15 : LOCATE К+2,3 : B-N(K) : GOSUB 1350 : NEXT 
FOR К= TO 15 : LOCATE К+2,16 : B-N(K) : GOSUB 1350 : NEXT 
DEF SEG = ACTIVE.SEG : FOR K- TO 15 : POKE 32+K*2,N(K) 

64+K*2,N(K) : NEXT : DEF SEG : RETURN 

B AND 128 THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 

AND THEN PRINT BS$; ELSE PRINT BR$; 


for un-used function keys 
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1470 GOSUB 1530 : LOCATE 23,2 : PRINT ">>--> Nothing Done"; : RETURN 
1480 

1490 Miscellaneous Subroutines 

1522 

1510 FOR L=29 TO 24 : LOCATE L,1 : PRINT 8405; : NEXT : RETURN 

1520 GOSUB 1530 : LOCATE 21,1 : PRINT B49$; : RETURN 

153g LOCATE 23,1 : PRINT B49$; : RETURN :'blank message area 

1540 LOCATE 24,1 : PRINT 8405; : RETURN :'blank auxiliary area 

1550 GOSUB 1530 : FOR К=2 TO 17 : LOCATE K,3 : PRINT B8$; 

156) LOCATE K,16 : PRINT B8$; : NEXT 

1570 LOCATE 3,35 : PRINT B5$; : LOCATE 4,35 : PRINT B5$; 

158) DEF SEG = ACTIVE.SEG : FOR K- TO 15 : РОКЕ 32+K*2,9 

1590 POKE 64+К%2,0 : NEXT : DEF SEG : RETURN 

1699 

1619 Procedure Division 

1629 

1630 LOCATE 9,13 : PRINT "S"; t LOCATE 18,13 :; PRINT "E"; 

1649 LOCATE 11,13 : PRINT "L"; : LOCATE 12,13 : PRINT "E"; 

1650 LOCATE 13,13 4; PRINT "6"; У LOGATE 14,13: PRINT "T"; : GOSUB 710 
1660 OS=INKEY$ : IF O$ = "" THEN 1660 

1670 ВҮТЕ%Ф-А5С(05) : FOR К-Й TO 15 : N(K)-PEEK(WORK.OFF-BYTE$*324K*2) : NEXT 
1680 LOCATE 9,13 : PRINT " "5 7; LOCATE 10,13 у PRINT "E"; 

1699 LOCATE 90,53 : PRINDS "i i LOCATE. 19,13 ¢ PRINT "E"; 

1700 LOCATE 11,13 : PRINT "D"; : LOCATE 12,13 : PRINT "I"; 

1710 LOCATE 13,13 r PRINT I'S 4 LOCATE 14,13 t PRINT " "; 

1720 LOCATE 3,34 : PRINT BYTE%; : LOCATE 4,35 : PRINT НЕХ9(ВҮТЕ%); 
173) GOSUB 1319 : GOSUB 710 : ED=T% 

1749 IF ED THEN GOTO 1740 

1750 O$=INKEY$ : IF O$-"" THEN СОТО 1630 ELSE GOTO 1759 

176g 

1779 Initialization Section 

1780 

1790 Т%=-1 : Е%-Й : ED=F% : Х-7 : Y=Ø : СС9-5ТКІКС9(3,1) : NC$=STRINGS(3,2) 
1822 ACTIVE.SEG = &HF899 : WORK.OFF = &HEØØØ : GOSUB 1580 : SV=T% 

181) DIM N(15) : TL$-CHR$(291) : TM$-CHR$(293) : TRS-CHR$(187) 

1820 BL$-CHR$(299) : BM$=CHR$(292) : BD$-CHR$(188) : MR$-CHR$(2904) 
1839 ML$-CHR$(185) : B8$-" "s BOS = ШТ Возило ВЕЗату н 
1849 H$=CHR$(295) : V$=CHR$(186) : H8$=STRINGS$(8,H$) : H3$-STRING$(3,H$) 
1850 B49$=STRINGS (49,32) : FOR K = Ø TO 15 : LOCATE K+2,1 

1860 PRINT HEX$(K);V$;SPC(8);V$;SPC(3);V$;SPC(8);V$; : NEXT 

1870 LOCATE 1, 2 : PRINT TL$;H8$; TM$;H3$; TM$;H8$ ; TM$ ; H3$; TRS$ ; 

188g LOCATE 18, 2 : PRINT BL$;H8$;BM$;H3$;BM$;H8$;BD$; 

1890 LOCATE 5,11 : PRINT MR$;H3$;ML$;B8$;MR$;H39$;BD$; 

1999 LOCATE 2,28 : PRINT V$; : LOCATE 3,28 : PRINT V$; : LOCATE 4,28 : PRINT VS; 
1910 LOCATE 2,39 : PRINT "Character"; : LOCATE 3,3) : PRINT "Dec:"; 
1920 LOCATE 4,30 : PRINT "Hex:"; : LOCATE 19,2 : PRINT "Font:"; 

193) LOCATE 7,26 : PRINT "Fl: Set Bit "s 

1949 LOCATE 8,26 : PRINT "F2: Reset Bit "; 

1950 LOCATE 29,26 : PRINT "ЕЗ: End Save "; 

196) LOCATE 10,26 : PRINT "F4: End Nosave"; 

197) LOCATE 11,26 : PRINT "F5: Work->Actv"; 

1980 LOCATE 12,26 : PRINT "F6: Actv->Work"; 

1990 LOCATE 13,26 : PRINT "F7: Disk->Actv"; 

2000 LOCATE 14,26 : PRINT "F8: Actv->Disk"; 

2010 LOCATE 15,26 : PRINT "F9: System m 

2020 LOCATE 16,26 : PRINT "Е10: Display "; 

2030 LOCATE 17,26 : PRINT "Е11: Load Font"; 

2040 LOCATE 18,26 : PRINT "F12: Save Font"; 


2050 ' 
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Give your Model 100 


128К 





AM 


Installs as easily 


as plugging 
in a socket 





Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank's entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don’t 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK+ ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the КАМ + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ех- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 
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Initialize Block of characters 


296g ' 


2070 ' 


: LOCATE 2,25 : PRINT NC$; 
: PRINT NC$; 
: PRINT NC$; 


: PRINT CC$; 


2080 LOCATE 2,12 





: LOCATE 3,25 


: PRINT CC$; 
: PRINT CC$; 


2090 LOCATE 3,12 


: LOCATE 4,25 


2199 LOCATE 4,12 


2119 ' 


Initialize Function Keys 


2129 ' 


2139 ' 


(6) GOSUB 600 
: RETURN 


: ON KEY (12) GOSUB 197g 
NEXT 


: ON KEY (15) GOSUB 750 


: ON KEY (3) GOSUB 450 
» KEY (К) ON : 


: ON KEY 
: ON KEY (9) GOSUB 660 


(5) GOSUB 54g 
: ON KEY (8) GOSUB 99g 
ON KEY (11) GOSUB 790 
: ON KEY (14) GOSUB 74g 


: ON KEY (2) GOSUB 499 
FOR K-1 TO 16 


: ON KEY 


2140 ON KEY (1) GOSUB 369 
2150 ON KEY (4) GOSUB 500 
2160 ON KEY (7) GOSUB 910 
2170 ON KEY (10) GOSUB 1179 : 
2180 ON KEY (13) GOSUB 729 
2199 ON KEY (16) GOSUB 739 : 
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Listing 3: 


name 


page 
title 


LOADFONT 


69,129 
LOADFONT -- load a new character font 





Yeyeyeye yeye ge ge Je Je TTI, 


yeeye** = LOADFONT.COM eee 
WANA INI II IIIS 


Davy Crockett 
5807 Cherrywood Lane 
Apartment #194 
Greenbelt, Maryland 20770 


Execute with command: 


LOADFONT.ASM 
Version 1.1 
13 April 1985 


LOADFONT «fontname.FNT 


handle,function,length,buffer 


bx,&handle 
ah,&function 
dx,offset &buffer 
cx,&length 


stdout 
stderr 


segment para public 'CODE' 


;standard input file 
;standard output file 
;standard error file 


;carriage return 
;line feed 


* 
* 


assume cs:cseg,ds:cseg,es:nothing 


org 199H 


proc far 
push ds 
xor ax,ax 
push ax 


Check for standard "BSAVE" 


;start .COM at 199H 


;entry point from PC-DOS 
;push RET segment address 
;clear AX and push 

; RET offset address 





header 
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stdio | stdin,3FH,7,input buffer 

cmp 83,7 ;did we get 7 bytes? 
jnz file error exit ;no, exit stage right 
mov al,[input buffer] 

cmp al, FDH ;is this a BSAVE file? 
jz continue load ;yes, go load the bytes 


Bad file, abort the load 


file error exit: 
stdio stderr,49H,file error len,file error msg 
ret ;return to MS-DOS 


4 File checks out, continue the load 


continue load: 
mov cx,word ptr [input buffer-5] 
mov dx, ;bit pattern offset 
mov ax,gF89gH ;bit pattern segment 
push cx ;save byte count 
push ds ;save current dseg pointer 
mov ds,ax ;install new seg pointer 
mov ah,3FH ;load function code 
int 21H ;load the bytes 
pop ds ;restore dseg pointer 
pop cx ;retrieve byte count 
cmp ax,cx ;load all the bytes? 
jz return to dos ;yes, go to return 


load error exit: 
stdio stderr,49H,load error len,load error msg 


, 
return to dos: 
ret ;return to MS-DOS 


loadf endp 


input buffer db 7 dup(?) 


file error msg 
'>>==> LOADFONT: file not BSAVE' 
се, 
file error len (this byte)-(offset file error msg) 
load error msg cr, Lf 
'>>==> LOADFONT: load file error' 
cr, 1£ 
load error len (this byte)-(offset load error msg) 





76 PCM May 1986 





ІШІН BASIC Bytes 1000/1200/2000/3000 





Different Ways to 
Store Program Data 


By Richard A. White 





r | "he bread and butter of a сотри- 
ter program is the data it han- 
dles. A program exists either to 

handle data or to cause something to 

happen based on data it contains or is 
given. So, it makes sense to discuss ways 
to store data before anything else. 

If you have a Tandy MS-DOS ma- 
chine and decide to buy the BASIC 
manual, you get a book that is divided 
into chapters with a detailed index in 
the front. There is a chapter on BASIC 
commands, statements, functions and 
variables. In the index for that chapter 
is a long list of each of these topics 
followed by a page number. Variables 
are much like entries in an index in that 
they show the computer how to find 
specific data. The data itself may be 
stored somewhere else in the computer's 
memory. 

There are different types of variables 
since the computer handles data in 
different ways. The word “hello” is a 
string of five characters. You might 
want the computer to store hello and be 
able to find it later and print it to the 
screen or printer. To do this, you must 
assign hello to some letter or string of 
letters that will represent it in the 
program and will also tell BASIC that 
hello is a string of characters. For 
example, WORDS=”HELLO” tells the 
program the variable named WORD is to 
represent HELLO. The $ following WORD 
tells BASIC that HELLO is to be handled 
as a string of characters. Now it seems 
natural to call variables representing 
strings of characters "string" variables. 
In computer jargon, the $ declares WORD 
to be a string type variable. 

String variables vary in length up to 
255 characters. They use only the mem- 
ory required to store the number of 
characters included in the string, plus 
the bytes used in the variable table. This 
is more memory efficient than compiled 
languages where string variable storage 
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BASIC programming. He has authored 
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space must be allocated before compil- 
ing the program and string length is 
selected based on the longest string that 
might be encountered. However, BASIC 
is limited to 64K of memory for your 
program, its data, variable tables and 
stack, even if you have 640K of memory 
in your machine. It needs to have 
economical data storage. 

Once a string is assigned to a variable 
name, BASIC goes into action to put the 
string into memory and puts the vari- 
able name into the variable table along 
with the string's starting address and its 
length. The variable table for string data 
is very much like an index. The data for 
a particular string variable may be in 
one place in free memory and change 
that place if the string is changed, but 
BASIC keeps its variable table up to date 
and can always find the string. 

Variable names may be any length in 
GW-BASIC, but only the first 40 charac- 
ters are saved in the variable table. Still, 
40 characters is shear luxury compared 
to one- or two-character limits in some 
earlier BASICs. The first character of a 
name must be a letter, but numbers and 
the period may be used after the first 
letter. Now you can use variable names 
that have true English meaning, making 
your programs much more readable 
and understandable. 

The various BASIC statement, com- 
mand and function names are reserved 
words. These cannot be used as variable 
names since BASIC has no way of know- 
ing when you want to make PRINT a 
variable name, you don't want to print 
something. It gets confused and sends 
a message explaining why it quit. Re- 
served words may be part of a longer 
variable name. 

The line 10 VAL=1@ is invalid since 
VAL is a reserved word. The line 10 
VALUE=1@ is OK since VAL is only part 
of the name and VRLUE is not a reserved 
word. VALUE is also more meaningful 
when you read the program. 

To prove the rule, there is an excep- 
tion. FN cannot be used as the first two 
letters of a variable name except as a call 
to a user-defined function. 

Numbers are handled a little differ- 
ently by BASIC, but the programmer 
does not see this. They are stored in the 
variable table with the variable names 
that represent them. More important 
are the different types of numbers that 
can be stored, why these differences 
exist and how you can take full advan- 
tage of these differences. 

Let's start with integers. Integers are 
whole numbers between -32,768 and 


32,767, inclusive. Integers do not have 
decimal points. Integers provide eco- 
nomical memory usage since they use 
only two bytes to represent the value 
and are fast to use. The microprocessor 
can deal with integers directly, which 
accounts for the speed. 

Integers fit counting like a glove fits 
a hand. If you want to do something 100 
times, counting with whole numbers is 
all you need. But, you must remember 
to declare the counting variable as an 
integer. The % tells BASIC you want ап 
integer variable. 


И 
T N COUNTS!!! 4% | 
Пао И 


In this code, the type of the variable 
COUNT% is specified when the variable 
name is used in the program. There is 
another way. 


The DEF INT statement specifies that 
all variable names that start with the 
letters listed are integer type. DEFSTR 
does the same thing with string variable 
names. A DEFtype statement must pre- 
cede the first use of a variable name in 
the program. This means only that 
BASIC must come across the DEFtype 
before it sees the variable in use. 


PURE 


a mer 


i 
аннин 
|| 4 
è m 119919 

In this example, Line 5 sends the 
program to Line 10000, where BASIC 
encounters the DEFINT C statement. 
When BASIC goes to Line 10, it knows 
that COUNT is an integer even though the 
DEFINT statement is in a later line. 
Putting initializing code at the end of 
the program makes sense only when you 
understand how BASIC works. Each 
time BASIC is sent to a different line by 
а GOSUB ог 5070, it must start at the 
beginning of the program and look at 
each line number in order until it finds 
the one it wants. This takes time and it 
makes sense to put lines only used once 
at the end of the program, allowing lines 
frequently used to be closer to the front. 

Finally, we need to use decimal 
numbers, and BASIC offers two flavors, 


сас mom. 
* wp et m om m 
ЏИ e 
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е-е ет а-а 
э wa. am cm e RON 
ee ek ee Өс лбу ен ӨР 
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single-precision and double-precision. 
Accuracy, speed and memory economy 
are the issues here. A single-precision 
number stores seven digits, but only six 
are accurate. However, it only uses four 
bytes of memory. The microprocessor 
cannot deal with a decimal number 
directly, but must use a procedure built 
into BASIC that requires many more 
operations to perform, say, a multipli- 
cation than it does in integer math. 
Since single-precision operations deal 
with fewer digits than double-precision 
counterparts, they are faster. 

In the line 10 PARTS !=22.765, the ! 
defines PRRTS to be a single-precision 
number. 10000 DEFSNG P declares 
PARTS and all other variables that start 
with ‘P’ to be single-precision variables 
whenever they are encountered in the 
program. If the type of a numeric 
variable is not specified, single- 
precision is used (default). 

Double-precision numbers are stored 
with 17 digits, 16 of which are accurate 
using eight bytes of storage. When using 
double-precision, you pay a price in 
speed and memory to gain needed 
accuracy. If you do not need more than 
six digit accuracy, don’t use double- 
precision. DEFDBL declares double- 
precision variables. The # added to the 
variable name specifies double- 
precision. 

Occasionally, it is necessary to con- 
vert a number from one precision to 
another. Five rules apply: 


1) When a numeric value of one 
precision is assigned to a variable of a 
different precision, the number is stored 
as the precision declared for the target 
variable name. In the following exam- 
ple, TARGETS is an integer, so only the 
integer part of the assigned value is used 
(subject to Rule 2). 


ЕНШІ 
| amm ІШІ 
pu 


2) Rounding rather than truncation 
occurs when a higher precision number 
is assigned to a lower precision variable. 
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precision values called NUMBERS. АП 
elements of the array are initialized to 


two-dimensioned array of single- 
zero. 


-32768 through 32767, to apply. If you 
try to use a number outside this range, 


precision. In this example, a 
precision number is assigned to 
a single-precision variable. The seventh 


Single-precision is the default type, so 
digit (5) is rounded up. If truncation had 


C is single- 


double 


*overflow" error occurs. 


an 


Each type of variable may be used in 
an array. An array is a group or table 


Specify which element you wish to 
use by providing the array name and the 


subscripts of the desired element. 50 
NUMBERS (2,3) = 25.2 puts the value in 
the element, which can be thought of as 
array. Think of a two-dimensioned 
array as a table with the first subscript 
defining the number of rows and the 


be used іп expressions and in any BASIC being in row two of column three of the 


statement or function like any other 


individual variable. Array elements can 
variable. 


of data referred to by the array name 
and a number. Each piece of data in an 
array is called an element and is an 


occurred, the following '8' would have 
been ignored and the result would have 
been 765.9825. 

3) If you convert from a lower pre- 
cision to a higher precision, the result- 
ing higher precision number is the same 
precision as the source number. If you 


NAMESS(7) is the seventh element of 
the array NAMESS. If NAMES%(7) is used 
in a program without a DIM statement, 


member there is a zero row and a zero 


second the number of columns. Re- 
column. 


BASIC establishes the МАМЕ5% string 
array with a default dimension of I0. 


integer value. However, the higher 
precision variable may not print like the 
lower precision one. Observe this exam- 
ple from the IBM PC BASIC manual. 
| 
š 
, 
š 


assign 8%, an integer, to B!, a single- 
precision variable, B! will contain an 


Much of the power of arrays comes 
from the fact that numeric variables can 


This array actually has 11 elements 


since there is a zero element. 


carry the subscript values. In most of 


Generally, you need fewer or more 
elements in an array. Tell BASIC what 


you need using DIM to dimension the 
array. 10 DIM NAMES$ (50) establishes 
a one-dimension string array with 51 


my array usage, I take advantage of this 


fact. Let's try an example. 


The variables ROW and COLUMN аге 
counters, so 1 made them integers out 
of habit. The elements of the array are 


. NEXT is a control struc- 
We will discuss these next 


single-precision by default. The FOR 


elements (remember zero). All elements 


= "Отта 


ture. 


have an initial null value — they are 


empty strings of zero length. 


4) When an expression is evaluated, 
all the operands (variables and numbers 
involved) in an arithmetic or relational 
operation are converted to the precision 
of the most precise operand. If the 
expression involves three integers and 





the example is 


from the IBM PC BASIC manual. 


° 


Тһе 6# forces double-precision eval- 
uation, which is returned to a double- 
5) Logical operators convert their 
operands to integers and return an 


ation is done in single-precision. The 
precision variable DB. The result could 


one single-precision number, the oper- 
result of an arithmetic operation is 
returned to the degree of precision of 
the operation. Again 

have been returned to a single-precision 
variable, in which case it is rounded. 
integer result. Given this, it is reasona- 
ble to expect the integer range limits, 
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S а на ава x Еді: сізлізіді: ііі іс Шдігіш 


years ago simply to print. out iden- 
tical return address labels. It was at 


ГЕ this ‘program, a ‘number of 


‚ first а Сојог Computer ‘program and 


now: iš а GW-BASIC program for: ту 
Tandy. 1000. It. doesn't take Лопе to key 
intó the system; it's very useful апа can 


be easily modified to suit more specific, 


needs. In addition, Label: Maker con: 
tains Some prétty useful routines that 
you may find helpful in writing your 
Own programs. 

To use Label Maker, just type in the 
listing and savea copy of it to.disk, then 
press F2 ortype RUN: This will show you 


how the program looks and:works in its ; 
generic form: To put пп а different : 
/ "пате, address, city; state and ZIP; or’; 
. ^ other data Aike“ Return Postage Guar- 
i anteed," just edit lines 115-140 and зауе |. 
‚ ѓа copy under а different name: Next: 


Bobby Ballard is a free-lance writer‘and 
thé owner ој a computer software and 


consulting firm: He also'operates a BBS ` 


іп Brooklyn. Bobby сап Бе contacted at 


' 4207 ‘Eighth’ Avenue, ‘Apt: AR, Brook- 
(Пт, МУ 11215. j 


time you need a set of these particular 
labels; load (һе custom version and run 
It. 

The Label Макег зћоша work with 
just about any DOS computer, There 
are по graphics commands to worry 
over. Those with. monochrome moni- 
tors will want tó leave the COLOR'com- 
mands out, but it may be OK with them 
left іл, Other than that; it’s pretty 
general in the commands used. 

То help you understand as much as 
possible about this program, I’ve in- 
cluded a list of the variables used and 
a sample of the printout it; produces 
(Figure I). Notice the sample printout 
has a 'headerlabel that'should be aligned 
to print the first line оба label'on your 


“printer. The date and time of the print- 


ing is listed on the header, label. This 
information might be useful.for logging 
your.computer activity for tax purposes 


“or estimating how many labels are used 


over a certain period’ of time. 


The Subroutines | 
Some of the more useful subrontines 


used in Label Maker are the Sereen and 


1000/1200/2000/3000 





This simple апа versatile program can. 
easily be modified and ae cd to suit | 
your own needs. | 





жарығы 


35277 Жыры. STE SE ып 


MES мысты; 


label formatting routines; Тағ routine 


апа а simple timer routine, 
The subroutine in lines 605-630 1 is a 


real timé-saver and. makes programs. ` 


look better, too. This routine takes the 


length of a line of text апа computes: 


where to print it on a specified. line in 
order to center it. You don't have to 
count ‘characters for each line of text 
you wish to. print on the screen just to 
have the text centered. 


This routine’ is: designed to- Work X 
specifically with an 80 by 25 text sereen, 
but could easily be modified. for. a 40- 
character width screen. This is done by ` 
entering this subroutine with a value of 


XX for (ће video line (1-25) onto which 


you wish to print and defining SCRNS as | 
the line of text you wish. to. center and 


print. 


Centering lines of: text on the actual. 


labels is similarly the same process 
except the medium is more narrow and 
the TAB function is used 185464 of the 
LOCATE command. 

Look at the routine іп lines 345-350. 


The constants in this. routine are forthe 4 4 4 
ізіпеһ wide, peel off Tandy labels, ` 


| | product. number 26-1328. This routine 


centers each line. оп a 34-character 


- width label. If you don't want the label 
і centered; just put a constant into the 


TRB function and delete the equations 


\ for ТВ in lines 345 and 350. 


Another routine is located in lines 


‘700-720. This, section of code егазев а 

- line of text specified by хх. In this case, 
+ the routine handles 78 characters, but 
· this can easily be increased or decreased 
with the SPACES command, This rou- 

| Алпе passes the value of ХХ and. SCRNS 


to the. subroutine at Line 610. To ‘call 
this routine, десјаге а value of XX for the 
line, to print: оп and then 50508 210. 


. , Used in conjunction with the POS func- 
Поп, this сап Бе a valuable subroutine! 


While designing this software, I 


‚\ wanted to have the time printed oh thé 
‘screen and constantly updated.: The 
< į subroutine in lines 850-870 puts the time 


In the upper left corner. of the screen 


, each.time а GOSUB 860 is invoked. [ put 
this subroutine call in each of the loops 
"пиће program and avoided INPUT and 
` LINE INPUT, commands: INPUT state- ' 
ments cause the looping; and the'timer, 
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to stop. The loops are what cause the 
time to constantly be updated. 

One simple subroutine in Label 
Maker appears in one form or another 
in almost every program I write. It is 
almost always necessary to delay action 
in a program at some point. For this 
task, a routine like the one found in lines 
800-820 is set up for use as a timer. The 
routine is called with a value of XX for 
the number of ticks you wish to time out 
on. If XX is equal to 100, this subroutine 
counts to 100 before returning to the 
line that called it. Instead of typing in 
lots of FOR/NEXT loops all over the 
place, I just define the value of XX and 
do a GOSUB to use my timer. 

The last subroutine is the error- 
handling routine in lines 900-980. This 
routine is invoked if the printer is not 
switched on. So that other program 
errors do not invoke this routine, it is 
shut off with the ON ERROR GOTO 0 
command in Line 390. This same com- 
mand is invoked at the beginning of the 
listing, too, making sure that residual 
settings do not interfere with this soft- 
ware. 


WHILE-WEND 

There are several instances of the 
WHILE and WEND commands in Label 
Maker that are worth looking at: two 
examples of syntax and one of a nested 
WHILE/WEND loop. 

Line 225 has an example of a WHILE/ 
WEND loop looking for the ENTER key 
before continuing. While this loop is 
executing, the program also searches 
for 0-9 as the only legitimate input to 
the prompt How many of the above 
labels are to be printed? Once 
ENTER is pressed, the program drops 
down and continues. Note that Line 235 
is a nice way to build a string of limited 
input and update the screen with this 
string. Also, this loop allows for con- 
stant updating of the time on screen 
using the subroutine at Line 850. 

In another example of the WHILE 
WEND loop, it is also associated with the 
INKEYS command like the aforemen- 
tioned loop. Look at the code in the 
lines forming the error-handling rou- 
tines from lines 900-980. The WHILE” 
WEND loop here has an additional 
WHILE“WEND loop nested inside of it. 
The outer loop first calls INKEY$ com- 
mand and continues if there is no key 
pressed. The next WHILE/WEND loop is 
used to animate the error message in 
association with the variable FLIP. The 
outer loop ends with any key press, then 
executes lines 975-980. The loop in Line 


975 clears the bottom of the screen by 
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looping through screen lines 20-25 and 
repeatedly calling the subroutine at 
Line 710. 


Special Changes 

If you want to make custom labels 
using other features of your printer, just 
add the code into the listing and save a 
special copy of that version. For exam- 
ple, Line 335 turns on correspondence 
mode for the Okidata ML 92/93 print- 
ers. Delete this line if you don't own a 
92/93 or if it doesn't match your printer. 
Also, in Line 325, CHR$ (24) is the reset 
code for the 92/93; this ensures that 
previously used settings don't interfere 
with the label printing process. Delete 
or change this, too, if necessary. 


Suggested Improvements 

Making custom fonts for your partic- 
ular printer is the most obvious sugges- 
tion. After that, you might wish to make 
the computer indicate how long the 
printing job took using the TIMES 
function previously discussed. 

A major add-on project would in- 
volve adding рата statements and 
ARRAYS to keep all your label data in 
one program. You could then page 
through the data using the label graph- 
ics as a window and the arrow keys for 
scrolling through the data. To add a 
name and address or variation would 
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involve editing the actual data state- 
ments. 

One way to avoid editing the program 
is to open a disk file and read the names 
and addresses from a file that either 
already exists or one you create your- 
self. This is much more involved and 
time consuming than any other way but 
would be very handy. 

Change it, improve on it — the choice 
is yours. I’ve given you the tools and a 
little information to get started. I hope 
you will experiment and play around 
with the code. 


Peel and Stick 

Label Maker is easy to modify and 
can be useful now and in the future. If 
you need a quick batch of return labels, 
this program can do the job. If you need 
to quickly come up with a different label 
for one of your clubs or organizations, 
a business, a friend or family member, 
Label Maker is a useful, quick tool to 
have in your utility toolbox. 

If you have any questions, comments 
or complaints about Label Maker or 
any other computer topic, contact me in 
the MS-DOS SIG on Delphi or at my 
address listed in the bio. I hope you 
enjoy using, changing and adding to 
Label Maker. And, if you get a chance, 
peel one off and stick it on a letter to 
me. О 


уу” H, 
AP PP 
WEES CAPS 


72) 
Е * 
ува 
/ РЕЈ 


у , 
"2 4^ 
уу 
УЛЛУ? 

44; £ й - Ltd 


4 P (f 
y Д/У ғ 


РА y 2 PERS 

# ў EFT) 
f йу» 
727767 





|| 

% 
Tit ila! 
AU % 


2% 


5% 
345 
1 
\ 
1 
КАТАА ҮМ 
AVANNAA 


LAT: е 
EN. P. I gie 
‘GO; 


5 
А 


` 
а" ^ 
Vik МА ев 
% 
AL ist % 
^ 


% 
` 
^ 
' 
` % 


` 
% 
жұз € ii 
LEY in 
` % 4* 
2% 1% 114313 


$5 ~ 1l У 
x 6 \ SCREI 
AA. 1 к А 


ae 


аа 
** 
w" 


= 


M 
M À T у 
\ (215 6050 


+" 
+" 
A 
^ 
Ly 


I 


=" 
` 
k A 


‚| 


% 11959 
in VEREN), 
а Ti š 


T 


* 
+4 


> 
аты 


CL 


a? 
% 


ee ANN 
% $* tl 1 
“BALLARD. 


B 
a2 
»* * 


* 
кү 
А 
"5 
% 


МАМА 
PANT 
AMO 1 % 
ALY LATE AYAY 
EDGES CUR 6036 


` 
+* % 
`% 


үү 
200: | 612 +% 
ni Address 


ARN QN 


abe 


A “ы 
aM 
RA 


How many of' 


^ 
Мм 


n 


САТ. 


ъъ атах З 
SERRA А 
құмы ALY ' 


% 


а 


` 
+ 
KAY! 


x 
A 
597 


la. 


+` 


е 


tl 
TAA 


% Label: 
UA 


are) 


Y 


` 


2:2 


Ballard" i 


$t 


NES 
LER 
st 


kq] а 
0, 295. ВЕЗЕ, 
% a3 AYA AYAY 


Е: 
27 


ұ 
AM 


faker: 


44 


M 
` Ai 


ы k` 
У k * 
AA А 
art $t 


b 


, ЗА 
ii at %% 55% it 
М QUAM \\ 
ҚҰРЫҚҚА 

Аааа А 
3! AY 4% 


. $515 


+4 
* 


M 


` 
4: 
i| 


= 
à tt 
WAY 


at 
` 
133145! 


+ 
%% 
қ 


tat 
e 


WAY 


kit 
% 
» 
Y 
"к. 
қ” 
+ 


ATIA A 
M Y ) THER 12 


% 
5% 


| ЗА 
um 
[Ал 


ii а 


* 
% % 1 
$t 


XY 
% 


Мау 1986 


à 
N 


LE 


it 


M | 


% 





РСМ 





| | y 


Memory Disk | 
Use part of y 


оде! 1000 
atibility as well 
ИОМ 





Megabytes for Mini-Bucks 


Tandy 1000 Hard Drives 
by Hard Drive Specialist 





Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part 225-1004. 


Ordering Information 


Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


нн. Disk System Features: 


10 
20 
42 
10 
20 
42 





All sizes rated after formatting. 
One secondary drive may be added. 

Error checking and correcting controller. 
Software drivers included. 

Buffered seek drives for improved access time. 
Built in power up diagnostics. 

Plated media for long disk life. 

Gold connectors used throughout. 

1 year warranty. 

Boots directly from Hard Drive. 

Uses Tandy 1000 MS DOS. 


Megabyte Internal................ $ 549. 
Megabyte Internal................ $ 749. 
Megabyte Internal................ $1349. 
Megabyte External............... $ 699. 
Megabyte External............... $ 899. 
Megabyte External............... $1495. 


Hard Drive Specialist 
16208 Hickory Knoll 

Houston, Texas 77059 

1-713-480-6000 


Order Line 
1-800-231-6671 
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LCS-STR$ (LC) 
ON ERROR: GOTO. 905 

XX-21:8CRN$- Printing "366%" labels. ^:GOSUB 612 
LPRINT;CHRS(24):"START- PRINT"LC"LABELS '" : LPRINT. DATES; DPRINT TIMES 


LPRINT:LPRINT "RETURN. ADDRESS, LABEL. MAKER": LPRINT "(с) 1986 NN ААЫА! patiora Ay 


PRINT; CARS (27): GHRS (49) |: “Okidata 92/93) Corr Mode 
тей 
FOR, Сре] TO %6 : TB-INTCUEN CLABERIRBS (51) У) 
LPRINT TAB(CINT(17- (TB/2))) LABELINES(LL) 
NEXT LE | 
LOCATE L Li PRINT TIMES; 
Тет] 
Т6-97в9(т) AM 
XX-22."S$0RN$- "Just printed, label number AA 1 GOSUB 610 
IP T=LO THEN.GOTO: 399 VM 
GOTO. 345 
ON ERROR GOTO 9: FOR. 57-1 TO 1000: МЕХТ ST: XX-23: SORNS=LG$+" А have been 


printed uni \GOSUB: 610 


XX=25:SCGRN$="[R]um, [E]nd. or back» to [р]0Е7"; GOSUB ‘GLO · 
LOGATRE:1;1:PRINT. TIMES; ;I$-INKEYS:IF' TS THEN, 60508 О сото 7,400 ELSE 
IF-1$5"t" OR. I$-"R^ THEN RUN 
ТЕ 13="а" ОВ: I$-"D'* THEN. SYSTEM 
IR збачен OR I$-"E* ATHÉN GOLOR 15,9: SCREEN 9, 9. " CLS KEY. ON:END 
GOTO ARG 
i End. of. Main Loop 
' SUBROUTINES, BEGIN, НЕКЕ 
\ Genter, Scrn$ and print: online: XX 
YY¥=INT (40 (ФЕМСООВМУ)/2).) 
LE. ¥¥<=%. THEN, YY=1 
LOCATE ХХ, YY 
PRINT SCRNG; 
RETURN 
N Erase command line and return, 
SCRN$=SPACES(78):GOSUB 610 
RETURN 
` Timer, Routine 
КОҚ Т16-1.Т0 XX NEXT “PIG 
RETURN : 
! Print, Тіпеб in Upper Left.of Screen 
LOCATE- 1, 1: PRINT TIMES; 
RETURN 
i Error handling routine 
XX-23* SCRNS—"PRESS ANY KEY. ТО CONTINUE" : GOSUB gig" 
Tsara \ 
WHILE: (IS9INKEYS) AND (455% v 
FLIP- | 
WHILE. FUDP. < 2* 
.XX-21; SCRNSS"*/% /* X X PRINTER: ERROR NENNEN EP COSUB 619^ 
XX-21:SCRN$2" *N&N SN NN PRINTER: ERROR 5/7 У УЧА GOSUB, 610 
GOSUB 860 | \ 
FLIP-FLIP-HI 
WEND 
XX-21;COSUB 719^ 
XX-509: COSUB.:810 
COSUB- 860 
WEND 
FOR. XX-20 TO. +25 .GOSUB лу: NEXT. XX 
RESUME 205 


PCM May 1986 





ІШІ Integrated Desk 


1000/ 1200/ 2000/ 3000 





Turbo Powered 
Desk Mate 


ences between the way Desk Mate 

saves text files and DOS reads 
them. This month I have a program for 
you to use in converting Desk Mate files 
to DOS text files. It’s written in BASIC 
and has a few added bells and whistles 
thrown in for good measure. In addi- 
tion, 1 want to convince you to “turbo 
power” Desk Mate on your system. It’s 
free and easy if you have the memory. 

If you’ve followed my column the 
past few months, you’re aware of the 
fact that Desk Mate saves text files 
without line feeds at the end of each line 
of text, only carriage returns. DOS 
needs both to correctly read a file to the 
screen using the TYPE command. In 
addition, there are a number of pro- 
grams, in public domain, that must have 
standard DOS files in order to work 
properly. If the Desk Mate files can be 
converted, you can put many of these 
programs to work on your files. 

The difference between the two files 
can cause some of the DOS text filters 
to behave poorly, if at all; and some of 
these filters are valuable public domain 
programs that would be nice to put to 


| the past I’ve discussed the differ- 


Bobby Ballard is a free-lance writer and 
the owner of a computer software and 
consulting firm. He also operates a BBS 
in Brooklyn. Bobby can be contacted at 
1207 Eighth Avenue, Apt. 4R, Brook- 
lyn, NY 11215. 


By Bobby Ballard 


use. I thought if | could convert the files 
to standard DOS text files, І could use 
some of this wonderful public domain 
software. Plus, a converted file can still 
be read into DeskMate without any 
problems; Desk Mate just ignores the 
line feeds. 

The best approach would be to write 
the conversion program in a language 
that is readily accessible, BASIC. So I 
went to work and found that the solu- 
tion was quite simple to implement. 
Much simpler than I, at first, imagined. 

The original thinking was that BASIC 
would be easy to use and І would really 
only have to open two files, read in the 
old file, append the necessary ASCII 
codes and write the line back out to the 
second file. It then occurred to me that 
BASIC writes its files with the CR/LF 
combination common to DOS text 
files. That eliminated the need to do any 
appending, making this much easier 
than first guessed. 

Once you've processed a text file 
through the Desk Mate Text Filter, you 
can use the TYPE command to get a 
normal screen display. If you haven't 
tried this or seen this problem before, 
try the following. Put a Desk Mate disk 
with text files (ending in . DOC) in a drive 
and, from the DOS command level, 
enter the а line: 


WAS ELA) VUL P y УУЛУ УУУ, % 
“7 А5) аг. "y. PAA T E 

7 Ж. Ў, пате: УРУУ Ж %% 
FUN Ful ur P ur y FF s жы» oe, 


Notice that all of the lines print on 


just a few lines. This demonstrates the 
missing line feeds. Once you process one 
of these files through the Text Filter, it 
will print to the screen properly and 
behave more like a standard DOS text 
file. 

Type in the listing exactly as it is 
printed. Please don’t try to make any 
modifications before you've gotten this 
version up and running correctly. The 
listing is not that long and has been fully 
commented. Let me point out that it has 
very little, if any, error trapping. Make 
sure of the filenames you select and 
make sure there is room on the disk for 
the new file, which will be a little larger 
than the Desk Mate file. Also make sure 
the printer is switched on before you 
elect to do a printout. 

Once you've gotten the Desk Mate 
Text Filter typed in and debugged, run 
it and follow the prompts. I’ve included 
some instructions in the program but 
it's so simple to follow and use І doubt 
you will need them. I included the 
instructions so you don't have to refer 
back to this issue to remind you how or 
what it does. 

The Text Filter only needs two file- 
names to get the job done. The first 
filename should be the name as saved 
under Desk Mate. The second filename 
should be the name you wish the new 
converted file io be called. Remember, 
Desk Mate will not recognize it unless it 
has the extension .DDC as part of the 
name. If you will not be reading the file 
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back into Desk Mate, you could use the 
same filename with the extension .TXT 
or .DOS, for example. 

In addition to converting Desk Mate 
files, the Text Filter has some added 
features that you might wish to put to 
use. While its main output is to diskette, 
you may also obtain hardcopy from 
your printer or you can get the Text 
Filter to scroll the text to your video 
screen. Both of these features can be 
toggled on and off before doing a 
conversion. 

If you use any of the other output 
features — printer or screen — the Text 
Filter operates slower. For fastest oper- 
ation, leave the alternate output fea- 
tures off. Of course, the faster your 
printer operates, the faster the through- 
put of the Text Filter when using printer 
output. In any case, the Text Filter 
reports the line number it is converting 
on the bottom left corner of your video 
screen. 

When the process is finished, the Text 
Filter reports the total number of lines 
converted and displays the two file- 
names used in the conversion. You are 
then presented with the choice to run 
the program again, end the program 
and go back to BASIC or to exit the 
program and BASIC and return to DOS. 


RAM Power Your DeskMate 

Many of you are running systems that 
have been upgraded to contain 384К, 
512K or 640K RAM. If you are running 
a system with lots of RAM, you can opt 
to use part of that RAM as another disk 
drive. To some of you this is not news. 

There are several public domain 
programs that create a RAM disk in 
memory. 1 downloaded one from a local 
BBS here in New York. To initialize this 
program, you include the following line 
in your CONF 16.575 file: 


DEVICE-RRMDISK.SYS nnn 


with nnn set to the size of the RAM disk 
you wish to use. Some of the other 
programs allow you to specify sector 
size and other parameters. There is one 
on Delphi also in the MS-DOS SIG. 

If you've used a RAM disk before, 
you know what I’m saying when I point 
out the major feature of a RAM disk is 
decreased disk access time resulting in 
much faster operation of many pro- 
grams. DeskMate is no exception. 
When you set up your RUTOEXEC.BRT 
file to transfer Desk Mate's major files 
to your RAM disk, you get Desk Mate 
running faster than it would on a hard 
disk! 
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With Desk Mate running at high 
speed, you jump from section to section 
in a split second. The response in time 
is literally milliseconds. Accessing files 
on floppies or a hard disk will not 
benefit from using the RAM disk, still, 
the overall operation from section to 
section speeds up significantly. I use a 
RAM disk exclusively for some soft- 
ware and Desk Mate is one. I no longer 
wait on the overlays to load when 
moving about and І do my saves to 
RAM as well, then move those files with 
today's date to the physical diskette 
when the session is over. 

You should take advantage of the 
RAM disk software available and really 
“turbo power” your copy of Desk Mate. 
If you do not have a modem and cannot 
download a copy of a RAMDISK.SYS 
file, send me a diskette and a return 
mailer with postage, and | will send you 
a copy of the ones I have. 


Get On-Line with XMODEM 

I know many of you would like to get 
a copy of a telecommunications pro- 
gram that supports XMODEM and 
can't really download a copy with the 
Telecom section of Desk Mate. Send me 
a diskette with a return mailer, self 
addressed, and stamped with the correct 
postage and I will send you a copy of 
Procomm. 

Procomm, from PIL Software, is the 
best telecommunications program Гуе 


55 
% 


М 


ever seen and it is in public domain. You 
are requested to send authors a dona- 
tion and you will want to do so after 
you've seen Procomm in operation 
(which is within seconds — it's so easy 
to use). Documentation is included in a 
text file that you print on your printer. 
I understand the limitations of Desk- 
Mate and you will soon, if you haven't 
already, wish to move to a better and 
more powerful program. 

In addition to XMODEM, Ргосотт 
supports YMODEM, YMODEM 
Batch and Kermit transfer protocols. It 
is fast, easy to use and well documented. 
It makes nice use of "exploding" win- 
dows, has every feature for which you 
could wish including various terminal 
emulation modes for mainframe com- 
munications, macros, Kermit file server 
support and much more. It’s the best. 


EOF 

We've covered a lot of areas this 
month. If you have any questions or 
comments, send them along. Re- 
member, if you are in need of a com- 
munications program or RAMDISK.SYS, 
send along the diskette with the appro- 
priate enclosed materials mentioned 
above and I will help you out. Please 
donate to those whose public domain 
software you use. Include a self- 
addressed stamped business-size enve- 
lope when writing me if expecting a 
reply. Thanks, and l'll see you next 
month. LJ 














Discover а Whole New World 
of TV Entertainment! 












User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


ее, $1519 


= Totally Automatic System With 872 -Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 








е” 









U.L. 
Approved 













Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 

















Now you can enjoy it all! 24-hour non-stop entertain- grams, plus music videos, FM broadcasts and movies 
ment that you simply can't get from local TV, cable, and with provision for stereo, and 24-hour news coverage 
even video tape! You'll see the hottest stars, recentun- оп both TV and radio. It all adds up to out-of-this-world 
cut and uninterrupted movies, the ultimate in sports TV viewing аға down-to-earth price. Come in today and 
coverage—and the best part is, there are no monthly discover how easy it is to enjoy satellite programming! 
fees to pay. You'll see exciting family-oriented pro- Includes complete installation manual. 












(817) 825-4027 
NOCONA ELECTRONICS • вох 593 • Nocona, TX 76255 
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|: 2120 ТЕ PRINTERSFALSE THEN BO$="on/OFFY | LOCATE XX, 58: PRINT 1944; “RETURN 
: 2139: RETURN 
2149 ' | | Title Screen 
2159 ХХ-1 
2160 SCRN$="< <<< Deskmate Text. Filter’> > > RI 
2179. GOSUB 2020 
2180 ХХ=ХХ+1 
2190 SCRN$-"MS- DOS Version 1. at 
2200 COSUB. 2929 | 
(2210 ХХ-ХХІ | i 
2220 5СЕМ5-"(с) 1986 5y "оры Ballard" 
2230 GOSUB 2020 + 
2240 RETURN: | 11 
‚2250 ' Оп Line Documentation 
2260 CLS 
12270 GOSUB 2150 ` 
2280 ХХ-5 
|2290 SCRNS= "INSTRUCTIONS" 
: 2300 GOSUB 2020. 
' 2310 XX=8 i | | 
2320 SCRNSs"This. 8595780 converts DeskMate text files to MS-DOS text files. ' You" 
supply the" ‘: i ! | 
233% GOSUB 2020 
2340 XX=XX+1 
. 2359. SCRN$=" input (DeskMate) filenamé and an Ни (MS-DOS). filename аб sis pro 
mpts, апа it" 
2360 GOSUB 2020 
2370 XX-XX41. 
2389. SCRN$="does the rest. Before each file the program prompts you for Screen 
and Printer” | 4 
2392 GOSUB 2020 
2800 XX=XX+1 | +Y 
2419 SCRN$="output' settings. Тһе program runs faster with! 411 output OFF. How ` 
ever, using" T и 
2420 .GOSUB 2020 
2430 XX=XX+1 
2440 LOCATE XX; ҮҮ 
2450 PRINT"these swithces allows text to be scanned or printed as it is 05949137 
а. n 
2460 XX=XX+2 f 
24/9 SCRNG="NOTE: There is very little error trapping in this version of DeskMa 
te File $ | 
2480 GOSUB 2020 
2490 XX=XX--1 
2500 SCRNS=" Filter. Make sure of the file names you select) and that your 
printer is" : | ; 
2510 GOSUB 2020 
2520 XX-XX41 
2530 LOCATE XX, YY 
‚ 2549 PRINT" ON and ready before selecting printer output ON." 
2550 ХХ-25 
2560 SCRN$-"« Press апу Keyi to continue HT 
2570 . GOSUB. 2020 
2580 BEEP 
2590 15-ІМКЕҮб Hi 
2600 IF I$="" THEN’ 2590 ELSE 
26161618416 
2629 GOSUB 2150 
2630 RETURN 
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LIST OUR 
COLOR COMPUTERS PRICE PRICE 


26-3127 64K Extended Color Computer 2 . $199.95 $169.00 
26-3134 16K Standard Color Computer2.. 119.95 99.00 
26-3131 Thinline Disk Drive 0 for Color Computer 299.95 240.00 
26-3018 Extended Basic Kit i 36.00 
426-3030 OS-9 With Editor Assembler А 59.50 
26-3012 Deluxe Jo''stick : 25.00 
26-1208 CCR-81 Recorder ............. й 50.00 
30001170 VIP Integrated Library à 139.00 
30001110 VIP Writer à 59.00 
30001210 Telewriter 64 Tape ; 42.00 
30001220 Telewriter 64 Disk ............ ї 49.00 
30009110 Воїек Interface ... 59.00 


1-800-248-3823 





TANDY 3000 





25-4001 Tandy 3000 One Disk 512K ..$2599. 00 $1900.00 
25-4010 Tandy 3000 One Disk & 20 Meg HD512K 3599.00 2600.00 
25-3046 Deluxe Text Display Adapter 249.95 205.00 
26-3047 Deluxe Graphics Display Adapter . 499.95 395.00 
25-4030 512K to 2 Meg Expansion Board . 499.00 395.00 
25-4033 Math Co-Processor for 3000 399.95 339.00 
25-4050 1.2 Meg Disk Drive Kit for 3000 .. 299.95 255.00 
25-4060 Hard Disk Controller Board for 3000 499.00 425.00 
25-4062 20 Meg Hard Disk Kit Д 679.00 
25-4101 MS-DOS 3.1/Basic/DeskMate .... i 85.00 
26-5111 VM-1 Monochrome Monitor > 165.00 
26-5112 СМ-1 Color Monitor .... » А 510.00 





. TANDY 100, 200, 600 





26-3901 Tandy 600 Port Comp 32K 3% DD $1599.00 $1195.00 
26-3904 Basic Rom for Tandy 600 129.95 110.00 
26-3910 92K RAM Upgrade for Tandy 600. 399.95 340.00 
26-3860 Tandy 200 Port Comp 24K 799.00 650.00 
26-3866 24K RAM Memory Exp Chip for 200 199.95 170.00 
26-3802 Tandy 100 Port Comp 24K 499.00 425.00 
26-3816 8K RAM Upgrade for Tandy 100 . 49.95 42.00 
26-3808 Port 3'/ Disk Drive for T100 T200 . 199.95 169.00 
26-3815 Portable Disk Case ... 24.95 21.00 
26-3805 Acoustic Coupler 4 39.95 34.00 
26-1409 Printer Cable . 14.95 12.70 
26-1410 Modem Cable. 19.95 17.00 





CALL 





LIST OUR 
RADIO SHACK PRINTERS PRICE PRICE 
26-1276 DMP-105 Dot Matrix Printer $ 199.00 $ 169.00 
26-1275 TRP-100 Portable Thermal Printer. 299.00 230.00 
26-1280 DMP-130 100 cps Triple Mode Printer 349.95 285.00 
26-1268 CGP-220 Color Ink-Jet Printer ... 699.00 595.00 
26-2830 PC-695 8-Color Digital Plotter .... 799.00 680.00 
26-1277 DMP-430 24 Wire Matrix Printer .. 899.00 635.00 
26-1270 DWP-510 43 cps Daisy Wheel ... 1495.00 1225.00 
26-1274 DMP-2100P 24 Dot Matrix Printer. 1495.00 1195.00 
26-1279 DMP-2200 HiSpeed Matrix Printer. 1695.00 1440.00 
26-1269 PT-64 Printer Controller ў 210.00 
26-1498 SW-302 Printer Switch : 100.00 
26-1447 Bi-Directional Tractor for DWP 510 219.95 186.95 


TANDY 1200, 2000 


25-3000 Tandy 1200 One FD & 10 Meg HD .$1999.95 $1525.00 
25-3001 Tandy 1200 Two FD 256K 1499.00 1200.00 
25-3010 VM-3 Green Monitor ў 185.00 
25-1022 CM-10 Color Monitor у 380.00 
25-3043 Graphics Display Adapter у 185.00 
25-3044 Graphics Master 540.00 
25-3061 Captain Multifunction Board 475.00 
25-3020 TCS-100 Tape Cartridge System . 1999.00 1555.00 
25-3021 TCS-100 Interface Kit 1000/1200 . 149.95 120.00 
25-3130 MSDOS/BASIC 89.95 76.50 
26-5103 Tandy 2000 Two Disk 1599.00 1225.00 
26-5104 Tandy 2000 One Disk & 10 Meg HD 2499.00 1885.00 











TANDY 1000 








MODEL 4D 





26-1070 Model 4D 64K 2 FD w/DeskMate .$1199.00 $895.00 
26-1122 64K Memory Expansion 69.95 65.00 
26-1123 Model З to Model 4 Upgrade Kit .. 399.00 38500 
26-1134 Model 4 HD Kit for 15 Meg ...... 79.95 67.95 
26-1530 Multiplan Model 4 199.00 169.00 
26-1595 Super Scripsit Model 4 199.95 169.00 
26-1608 DeskMate for Model 4 195.00 175.00 
26-1635 Profile 4 Model 4... . 249.95 200.00 
26-2216 CP/M Plus Model 4 .. . 149.00 127.00 
26-2231 Double Duty Utility ....... 69.95 58.00 





25-1000 Model 1000 128K 1 ҒО & DeskMate % 999.95 $ 705.00 
25-1001 Model 1000 256K 1 FD 10 Meg HD 1999.00 
25-1003 300-Baud Modem Board 1000/1200 149.95 
25-1005 Disk Drive Expansion 1000 

25-1006 RS-232C Interface 1000/1200 . 

25-1013 1200-Baud Modem Board 1000/1200 299. 95 
25-1025 10 Meg Hard Disk Drive 

25-1007 Hard Disk Control Board 

25-1021 CM-4 Color Monitor 

25-1022 CM-10 Color Monitor 

26-3211 VM-2 Monochrome Monitor 

30051030 PJB Multifunction Board 512K 











MODEL 6000 COMPUTERS 





26-6021 Model 6000 512K 2 FD Comp ...$4499.00 $3125.00 
26-6022 Model 6000 512К 1 FD 15 Meg HD. 5499.00 3795.00 
26-6019 Model 6000 256K Memory КИ... 199.95 185.00 
26-6052 DT-100 Data Terminal . . 795.00 600.00 
26-1245 10 Meg Disk Cartridge System ... 2195.00 1750.00 
26-6018 6000 Interface Kit for 26-1245 .... 119.95 102.00 
25-3022 1000/1200/3000/Interface Kit for 26-1245 199.95 160.00 
26-4155 15 Meg Hard Drive Primary Е 1355.00 
26-4171 35 Meg Hard Drive Primary j 2545.00 
26-4173 70 Meg Hard Drive Primary i 3350.00 
26-4157 Installation Kit for Primary HD .... 349.00 295.00 





All prices and offers may be changed or withdrawn without notice, Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C.. Visa, add 2%. AX, add 3%. All non- 
defective items returned will be subject to 10% restocking fee. Defective 
items require return merchandise authorization. Cal! for R.M.A. Number 
before returning. Delivery is subject to product availability. 








$215.00 

225.00 

А 345.00 

20001050 НІ-80 4 Pin Plotter j 390.00 
20002010 RX-100 Dot Matrix Printer ў 400.00 
20002030 FX-286 Dot Matrix Printer 510.00 
20003020 LQ-800 24 Pin Head Dot Matrix . 799. 00 565.00 
20003030 LQ-1000 24 Pin Head Dot Matrix. 995.00 695.00 
10081010 DX-10 Daisy Wheel Printer ; 255.00 
10081020 DX-20 Daisy Wheel Printer | 390.00 
10081030 DX-35 Daisy Wheel Printer Ç 765.00 





For Technical Questions and Information on our complete line of 
computer accessories and current prices: 


CALL 1-517-625-4161 
FOR ORDERS ONLY CALL 1-800-248-3823 


Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-5, Sat. 9-3 
124 S. MAIN ST. PERRY, MICH. 48872 
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PCM fest in Palo Alto 


For the first time on the west 
coast, PCM hosted PCMfest, 
February 14-16, 1986. Despite 
record rainfalls in the area, 
computer enthusiasts came out 
to see what's new for their fa- 
vorite Tandy computer. 

The combined RAINBOW- 
fest/ PCMfest covers virtually 
every computer Tandy makes, 
from the low-end Color Com- 
puter to the high-end Tandy 
MS-DOS machines. The most 
exciting thing was watching the 
show exhibitors pushing the 
Tandy line of computers 
beyond the expectations of 
Tandy or even their three-letter 
competitor. 





Star Software that shines 
in the night 





For years we've thought of 
accountants as people who are 
shut off in a room somewhere 
adding and subtracting col- 
umns of figures. Star Software 
may be out to change that. 

Showing off their full line of 
accounting software, a variety 
of programs that appears to be 
a reliable partner for anyone 
who has to keep track of mas- 
sive figures. Maybe with the 
help of Star Software, we'll 
change our impression of ac- 
countants day. 











Prospect, 


Kentucky 


©Falsoft, Inc. All Rights Reserved 


Lack of RAM, expense of 
portable disk drives, no power- 
ful spreadsheets. These all 
sound like the typical lament of 
Model 100 owners. Now there's 
an answer. 

The Portable Computer Sup- 
port Group (PCSG) was show- 
ing off their answers to all these 
complaints and more. The 


Delphi online 


One of the real advantages of 
computers is their ability to 
transfer information over tele- 
phone lines. In minutes, you've 
got an exact copy of your doc- 
ument on the other end of the 
country. 

If you have a sophisticated 
enough system, you can have 
several people get together for 
a conference, and local connect 
time is cheaper than long dis- 
tance calls when you have five 
or more people connected. 

Delphi offers you all this and 
more. During Palo Alto, the 
folks from Delphi were show- 
ing their stuff, with both a 
Tandy 1000 and a Color Com- 
puter online. 





Popcorn — software that really jumps 


One of the most enjoyable 
things around our home is 
going out to rent a videotape, 
coming home and eating pop- 
corn while watching the movie. 

For Popcorn Software, 
they're popping, too, and no 
wonder. For the first time, I was 
able to watch MS-DOS soft- 
ware at a reasonable price. Not 
$300 to $800, but every package 
listing for under $100, and most 
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for under $50. Perhaps the 
Color Computer software 
prices had finally made it to the 
MS-DOS community. 

The three packages shown at 
the booth were Popcorn Writ- 
er, Popcorn Desktop and Pop- 
corn Misspeller's Dictionary. 
Each is at least similar to 
another much more expensive 
software package on the 
market. 





Portable Computer Support Group 


Tandy line of portable compu- 
ters is being expanded to make 
sure they answer your needs. 
Their inclusion of the 6- ROM 
Back is making the Tandy 
Model 100 a truly portable 
computer. 6- ROM Back can be 
populated with 128K RAM, 
Write ROM word processor, or 
Lucid electronic spreadsheet 
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Writer: Bruce Warner 





and comes with its own 30-hour 
power supply. No need for ex- 
ternal power supply (except for 
periodic recharging), full- 
powered applications software 
for the most commonly used 
programs and six plug-in 
ROMs online at the turn of a 
switch. 













Micro Mainframe makes 


1000 bigger and better 






There is always something 
eye-catching at a computer 
show. It can be the title of a 
program, the look of a monitor 
or the name of a company, and 
in Palo Alto the name won out. 
The name is Micro Mainframe. 
It seems contradictory, but 
when you change your Tandy 
1000 microcomputer into the 
mainframe of just four or five 
years ago, Micro Mainframe 



















Hard Drive 
Specialists 


















constantly swapping floppies. 










shows Two-in-One 


As shipped, the Tandy 1000 
has some serious limitations, 
just like the Big Blue clone. 
There's not enough memory to 
run most of the software you 
need to run; there's no serial 
port; you have to keep setting 
the clock on power up and 
programs are so large, you're 


Hard Drive Specialists were 
showing their cures for the MS- 
DOS woes — the Two-in-One. 


doesn't sound so strange. 

The Micro Mainframe 4N1 
Board includes 512K memory 
(taking your 1000 to 640K), 
RS-232C serial port, DMA 
controller and clock-calendar/ 
mouse. Add to the 1000 a 10- 
meg hard disk or a video digit- 
izer and you just might be push- 
ing the limit of the entire 8086/ 
88 family of microprocessors. 


The Computer Center 
makes discounts on 
disk drives 


There's never quite enough 
storage on a new computer 
system. Almost every MS-DOS 
program written requires two 
disk drives just to get up and 
running. 

The Computer Center was 
selling both internal and exter- 
nal, single- and double-sided 
disk drives for your favorite 
machine. They were also dis- 
counting almost their entire line 
of products through special 
purchases made for the show. 








Тһе Small Computer 
Company is a big deal 


There's a lot of talk about 
integrated software these days, 
and much of what we are seeing 
is close to filling our needs, but 
there always seems to be some- 
thing missing. Maybe the 
answer isn't with the big com- 
puter companies, but with the 
Small Computer Company, 


who showed their filePro 16 
package. 


filePro 16 is an off-the-shelf 


menu-driven electronic filing 
system, database management 
system and application devel- 


oper in a single package. It runs ! 
on all the Tandy MS-DOS ma- ! 


chines. 





Hoot your wares 


Owlware was showing the 
deal of the show with the Owl 
10,000 PC clones in kit or as- 
sembled form. This is a kit 
computer that fits your budget. 
You can pay for their labor or, 
if you're a real hardware 
hacker, you can buy the kit and 
save the labor costs. 


The Shack's 
warehouse 


Some of the best deals of the 
show were in the Radio Shack | 
booth. Terminals for less than 
$150. pocket computers with 
cassette deck and software for 
| less than $50. 











Ross Computer Services 
with new products 


There always seems to be | 


another expansion for MS- 
DOS computers, and the 
founder of Ross Computer Ser- 
vices was proud to set up their 
booth, showing their line of 
Tandy 1000 and Model 100 
products. 


| in force. 
| Tape and the whole line of 





PCM tells its own story 


What would a festival be 
without the host? I guess we'll 
never know, because PCM, and 
her sister publications, were out 
VCR, Rainbow on 


Falsoft products were also at 
the booth. 





Spectrum bats a 1000 


There are a lot of MS-DOS 
users moving from their Color 
Computer up to MS-DOS. Bob 
Rosen of Spectrum Projects 
was introducing a way of get- 
ting all your files from one 
machine to another. 

The answer lies in CoCo 
Copy, a utility that reads your 
TRS-80 Color Computer disks 


on your MS-DOS computer. 
You no longer need an MS- 
DOS computer and the asso- 
ciated $400 software to carry 
your work back and forth. Now 
you can use a $500 Color Com- 
puter system and a $40 text 
editor, and have document | 
compatability anywhere you 


go. ' 
PCM] 
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ROYAL] 
GAMES ¿ 





Program requires disk, graphics card, 128K. 


ВАКВАКО55 


The War in Russia 1941-44 


ARK ROYAL'S most popular Color Computer wargame is now available on 
the Tandy 1000 and а! ІВМ compatibles. Hi-res graphics, 100% ML, Bar- 
barossa is the same game raved about in the RAINBOW and HOT COCO (Jan 
'86), except that the 1000's memory allows room for a host of expanded fea- 
tures. [Included are bitmapped logical characters (tanks, infantry, airflottes, ci- 
ties and terrain), normal and Bliltskrieg movement, airstrikes, supply 
consideration, unit detail, group transfer, weather, intelligence, (which even 
tells you which sector your attacking unit is in), patrols, game save and even 
more. $24.95, disk. We pay shipping and handling on all prepaid orders in 
USA. COD charge is $2.50. Personal checks in US accepted with no shipping 
delays. Foreign orders send М.О. in US funds. FL residents add 5% sales tax. 


P. O. Box 14806 


Jacksonville, FL 32238 


(904) 786-8603 
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ІШ Barden's Buffer 1000/1200/2000/3000 
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How to Make Cents 
of Your MS-DOS 


System 


PCM 
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By William Barden, Jr. 
PCM Contributing Editor 


66 H*: a program I just wrote 
to do some simple book- 
keeping. My Tandy 1000 is 

giving me bad answers!" my vociferous 

friend, Fred, announced. “Why doesn't 
it give me exact results?" he shouted. 

"Let's take a look," I offered. 

Sure enough, his listing indicated 
dollar and cents values of $345.56778, 
$34.9766 and other anomalies. 

"You really should have a PRINT 
USING to get a rounded-off value," 1 
suggested. 

“Yeah, but why doesn't the computer 
give exact results? I’m not doing апу 
division, just adds and subtracts. 1 
realize that if you divide $100.00 by 
12 months, you're going to get 
$8.3333. . . , but you'd think the system 
would know how to take care of cents 
automatically ...,” his salesperson’s 
voice, usually imbued with adrenaline 
from listening to adozen “How to Close 
the Deal” motivational tapes, died off. 

“Oh yeah, here’s another thing I 


William Barden, Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. A prolific author of more 
than 27 books on computers and com- 
puter programming, Bill also has au- 
thored several instructional software 


projects for Tandy/ Radio Shack. 


tried,” he said, renewed. “This short 
program gives the wrong results, too.” 
What Fred had showed me is Listing 1. 








дуй, FOR , т. 1 70 Ag, step) 1 
119) PRINT! a iii i 
LQG ET THEFT ИИИ 


A portion of the display for the 
program is shown here: 


ШІН 1999095) ИНИ 
ПНЕ РО РАЈТ 
181155905! eo FITT Fee 
8, 299996///// 


*Why don't I get values of 7.9, 8.0, 8.1 
and so forth — look at all the digits!" 

*Fred, Гуе got the answers for you, 
if you're interested — but it'll mean 
digging into the internals of BASIC. Are 
you game?" 

“Sure, I’m all ears,” he said. 


Back to Binary 
“First a little binary... 
his eyes. 


? Fred rolled 





> 


` Fi ‘igure i 
‘Positional N otation or Binary an and Decimal. 
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852479757 
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“ГІ just go through this quickly as 
I'm sure you've seen it before. Every- 
thing in the Tandy 1000, 1200, 2000, 
3000 and all other Tandy machines, and 
all other current computers is ultimately 
represented in binary numbers. Binary 
numbers have only two digits, zero and 
one. Because this is an on/ off condition, 
the two binary states can be represented 
by an electrical charge or no charge, a 
switch that is on or off, or a magnetized 
spot on a diskette or no magnetized 
spot. I’m simplifying here a little bit, but 
you get the idea. 'Til someone invents 
a cheap, reliable electronic device that 
can hold 10 states to represent zero 
through nine, we're stuck with binary." 

*Just as decimal representation rep- 
resents the decimal digits’ positions, a 
binary number represents the binary 
digits' positions. Engineers and pro- 
grammers got tired of using the term 
*binary digit" about three seconds after 
the first digital computer was designed, 


and so you'll always hear the word ‘bits’ 


used instead." 

"The decimal number 1,963 really 
represents one times 10 to the third 
power, nine times 10 to the second 


ӨРЕН 3x1 


xmi seko. = 


9x304-9x100 - | 


deseri. a 
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power, six times 10 to the first power 
and three times 10 to the zero power." 

"Zero power — what's that?" Fred 
interjected. 

"Just remember that any number to 
the zero power is one — 10 to the zero 
power is one, two to the zero power is 
one and so forth." 

"Binary numbers use the same posi- 
tional notation scheme as decimal, only 


: Listing 2 - 


199:B$ = 0 + 
119 ingeut AS. iun 
129 ве = 
130 FOR uu 7 Т0 f STEP -1 
149. IF. (2^I ANDI E 
15g. NEXT I. 

160 8% = 

170 FOR I = 7 TO: gu STEP. 1H 
189 ТЕ (271 AND BS) 
sess TH 
200 PRINT. ^^. 
ap TY np. 


"BBE CARET A) 1) | A 


«e THEN. PRINT: zu 


mut ; 


here the powers are powers of two. The 
right-most position is two to the zero 
power (one) followed by two to the first 
power (two), two to the second power 
(four), two to the third power (eight) 
and so forth. Here's what І mean," I 
said, as I sketched a diagram (Figure 1). 

*You can make the binary number as 
big as you want by just adding more 
binary digits to the left, just as you do 
in decimal numbers. Each digit is 
another power of two. Here's some 
equivalent binary and decimal 
numbers," 1 said, and jotted the 
numbers down. 


Integer Numbers in BASIC 

"Unfortunately though, BASIC and 
other languages can't store an unlimited 
number of bits. Oh, they could make 
each variable a kind of variable length 
operand, but it's a lot more convenient 
to have a fixed number of bits for 
variables. Since the hardware — the 
8088 (or 80186 or 80286) microproces- 
sor and memory — are oriented toward 
byte operations — eight bits per byte — 
BASIC uses multiples of bytes to store 
variables. The simplest variable BASIC 
uses is an integer variable. Integer 
variables are 16 bits, or two bytes long. 
Actually, it’s easy to see how BASIC 
stores integers. Take a look at this 
program.” (See Listing 2.) 

“The VARPTR function points to the 
location of the specified variable. Here 
мете using A% as an integer variable. 
The percent size (%) suffix says that the 
variable is integer, and not the standard 
“single-precision” default variable type. 
PEEK lets us read what’s in the variable 
location. As each integer variable is two 
bytes long, we’re doing two PEEKs. 

“Here’s one strange thing, though, 
not just peculiar to the Tandy MS-DOS 
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We would like to take this opportunity to introduce ourselves. Although Ross Computer Services is а new 
name to the pages of this magazine, we are МОТ new to computers. We have been suppling computer dealers 
with many of the products they sell for several years. We have decided to end that relationship, and to sell 


directly to you, the end user. 





ROMDSK. 8K or 32K CUSTOM expansion rom for 
the TRS-80 Model 100. Custom programmed with 
ien programs. 


5 . ¿32K $69.95 
* Gai or Write ROSS COMPUTER SERVICES 
For Ordering Information 


!ƏƏIIIII 


The SMART Software System, from Innovative Softwear. 
The SMART DATA MANAGER $495.00 
The SCAIARISWOBBDPEQGESSQORI раси oai u. а къа pawa ей? wara awa ac e $295.00 
The SMART SPREADSHEET (With Graphics) | 

The SMART SPELLCHECKER un $139.00 


The SMART SYSTEM* $895.00 


*The SMART Software System includes: The Smart Data Manager, The Smart Spreadsheet with Graphics, and 
The Smart Word Processor, and can only be sold as a system, not as individual products. The smart Software 
System includes built in asynchronous communications and personal time management programs. 


BORLAND 


INTERNATIONAL 


Turbo Tutor $ 34. Superkey . . . . .$ 69. 
Turbo Pascal 3.0 | SideKick (copy-protected) ..$ 54.95 
Turbo Pascal with 8087 . . i SideKick 
Turbo Pascal with BCD $109.90 (NOT copy-protected) ....$ 84.95 
Turbo Pascal 3.0 with Traveling SideKick 

both 8087 & BDC.. . $124.95 (when available) ........ $ 69.95* 
Turbo Database Toolbox .... 1 bu! SideKick 
Turbo Graphix Toolbox 4 with SideKick (NCP) + 00 
Turbo Editor Toolbox і Turbo Lightning . ...$ 99.95 
Turbo Gameworks $ 6905 Reflex: The Analyst . .$ 99.95 
"Traveling SideKick should be available by the time you read this ad. 


MERCURY 300/ 


1200 MODEM 
Mercury 300/1200 Ross Computer Services is a division of a company that has been 


auto-answer/auto-dial, in business for over 54 years. We are not likely to fold our tents, 
HAYES compatible and steal into the night. We will sell only the highest quality hard- 
MODEM. Uses the industry standard AT command ware and software. Though our initial offering is limited, we will 
set. be constantly adding to our product line, again, adding only 
SPECIAL $199.95 products of the highest quality. 


(816) 363-2545 “Л” 

Hours: 8:30 to 5:00 „бави 

After 5:00 you will reach our order line 885 € 

1800 W. 91st Place е Kansas City, MO 64114 











systems, but to all 8088-іуре microcom- 
puters. The two bytes are stored in 
memory in reverse order — the ‘least 
significant’ first, followed by the ‘most 
significant.” The most significant byte 
holds larger powers of two. This pro- 
gram first converts one byte to binary 
and then the other for a display of the 
16 bits. 

“Here are some sample displays of 
integer values.” 


(523 
0000000000010111 
2100 


0000000001100100 
232767 
2111111111111111 
? 32768 
Overflow in 100 


Notice that at a decimal value of 
32,767, the corresponding binary is 
011111111111111 in 16 bits. The next 
bit (the zero) represents the 32,768th 
position (two to the power of 15). 
However, when 32,768 (equivalent to 
1000000000000000 in binary) is entered, 
“overflow” results. The reason for this 
is that BASIC allows positive integer 
values of only zero (0000000000000000) 
through *32,767 (0111111111111111). 
If BASIC doesn't see a sign, it assumes 
a positive number. The 16th bit is used 
as a "sign" bit. For the values above, the 
sign bit is a zero for positive. Let's see 
what happens when a negative integer 
value is entered: 


Tl 
1111111111111111 


Here, the l6th bit was used. But if it 
represents a sign bit of one, or negative, 
why is the remainder of the number all 
ones instead of 00000000000001? 


Two's Complement 

Microsoft could have used а “sign/ 
magnitude" representation for negative 
integer numbers in BASIC, where a -1 
would be 1000000000000001, but there 
are problems with the scheme. For one 
thing, there would be two zeros 
0000000000000000 and 100000 
0000000000. Instead, a scheme called 
“two’s complement" is used. In this 
method of representing negative 
numbers, the positive representation of 
the number is inverted — all ones are 
changed to zeros and all zeros to ones 


i Figure2 . НЕ 
Sampie Binary Numbers. 


Decimal 


| Binary 


1 
10 

111 

1010 

| 11100 

| 101011 
1101110 
10110001 
101011111 
1011011011 
10110000111 





— and then one is added to the result. 
Тһе number -23, for example, would be 
derived from +23 as follows. I did some 
more sketching and come up with 
what's in Figure 3. 


Figure 3 


0000000000010111 +23 
1111111111101000 all zeros to ones 
and all ones to 
zeros 
+1 add one 


1111111111101001 -22 іп two’s com- 
plement 





Binary Weights 


64 + 32 +8 + 4 + 2 

128 + 32 + 16 + 1 
256 + 64 + 16 +8 +4+2 + 1 
512 + 128 + 64 + 16 +8 + 2 + 1 
1024 + 256 + 128 + 4+2 + 1 


"That's а complicated, 
scheme," Fred ventured. 

"Crazy? Well, certainly harder to 
work with from a programmer's stand- 
point, but commonplace in computers." 
Here are some more examples: 


crazy 


ай 
1111111111111110 
2 -199 
1111111110011100 
2 >32767 
1000000000000001 
2 -32768 


1000000000000000 


Figure 4 
Binary Fractions 


2-1 2-2 2-3 2-4 2.5 2.6 2.7 2.8 
0 1 
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Note that in this scheme the sign bit 
for negative numbers is always a one. 
Also, the maximum negative number 
that can be held is -32,768, one more in 
magnitude than *32,767. 


Fractions in Binary 

Integer numbers in binary are not too 
hard to understand, but what about 
fractions? Any number base can repre- 
sent fractions as well as integer 
numbers, and that applies to binary as 
well. The powers of two in a fraction, 
though, are reciprocal powers of two — 
2-!, 22, 2-3, and so forth. Another way 
of expressing reciprocals is 1/2!, 1/2!, 
1/23... Whereas integer bit positions 
represent weights of 1, 2, 4, 8, 16 and 
so forth, fractional bit positions repres- 
ent %, 4%, %, '/16, 1/32 and other recip- 
rocal powers of two. The scheme works 
like this (Figure 4). 


Single-Precision Numbers 
Integer numbers can be used for 
many operations where you don't need 


T^ 


Use your Tandy 1000, 1200, 2000 or Model 100/200 


C NL 


The Handicapper 


large magnitudes. The default numeric 
variable type in BASIC, however, is 
single-precision. It’s what you get when 
a variable name is specified without a 


Listing 3 


19g Bs-g 

110 INPUT A 

120 Ва = | PEEK(VARPTR(A)+3) 
139 FOR I + 7 TO 0 STEP -1 

140 IF (271 AND B$) <> 0 THEN 
150 NEXT 1 

169 Въ – PEEK(VARPTR(A)+2) | 
170 FOR I = 7 TO Q STEP -1 

180 IF (271 AND BS) <> 9 THEN 
190 NEXT I 
200 PRINT | | 
212 Be = ШЕ (ЖАШАБА 
220 FOR 1-7 TO g STEP -l 

239 IF (2^1 AND Ва) <> 9 THEN 
249 NEXT I 

250 B& - PEEK(VARPTR(A)) | 

260 FOR I = 7 TO @ STEP -1 ^ 
270 IF (2^1 AND Ва) <> 9 THEN 
280 NEXT I 

290 PRINT 

300 GOTO 120 


suffix such as ‘%’ (integer) ог ‘#’ (double- 
precision). 

The idea behind single-precision is to 
allow you to hold a wide range of both 


ШИН ШЫР I ELSE PRINT "0"; 


PRINT iiti ELSE PRINT "0"; 


PRINT "1"; ELSE PRINT "9"; 


PRINT ПЫР ELSE PRINT "9"; 








WORD PROCESSING 
TRAINING GUIDE for 
ІВМ-РС and TRS-80 


Become an expert in the advanced word processing 
techniques in just a few hours. Develop skills that can 


to improve your performance at the track! Separate pro- 
grams for Thoroughbreds, Harness horses and Grey- 
hounds rank the horses or dogs in each race. Handicap a 
race in minutes, even if you've never handicapped a race 
before! 

All the data you need is readily available in the thor- 
oughbred Racing Form, harness or dog track program. 
We even provide diagrams showing you where to find the 
information you need! Data entry is quick and easy. Our 
manual shows you how to bet, when to bet and when to 
sit out—one of the real secrets of good handicapping. 

Thoroughbred, Harness or Greyhound Handicapper, 
$49.95 each on T1K disk. Thoroughbred and Harness 
only, $49.95 each on Model 100/200 tape. Any two for 
$74.95, all three $99.95. You can buy a more expensive 
handicapper, but you can’t buy a better one! 


Federal Hill Software 
QUE 8134 Scotts Level Ва: | оза 
Baltimore, MD 21208 
Toll Free (Orders Only) 800-245-6228 


For Information Call 301-521-4886 
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be applied to any of the best selling word processors, 


no matter which system you decide to buy. Includes 
program disk so you learn quickly by doing. The train- 
ing guide and training program disk (a $50.00 value) 
will be sent to you absolutely free, with no obligation, 
upon receipt of this filled out coupon. Offer good for 
a limited time. 

= юш ин шш на иш шш эш ыш шш шш шш иш иш шш шш шш шн 

LeScript Word Processing Systems 
P.O. Box 361136, Melbourne, FL 32936 
(or call 1-305-259-9397) 


Type of computer system: 
о IBM-PC/XT/AT/PC jr 

o TANDY-2000 

п TANDY-1200 


п TANDY-1000 
о TRS-80 1/3/4/4P 
о TRS-80 2/12/16 


Address 


City State Zip 


Telephone 


*(Computer names are tradenames and/or trademarks of their respective 
manufacturers.) 
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integer and mixed numbers that contain 
an integer and fraction. Also, since only 
about 4/4 decimal digits сап be specified 
in integer, single-precision extends the 
precision to seven decimal digits. 

As in integer, we can use the VARPTR 
to investigate the format of single- 
precision numbers. See Listing 3. 

The code in Listing 3 does pretty 
much the same as the previous code for 
investigating integers — it prints out 
four bytes instead of two bytes, how- 
ever. The bytes are also rearranged 
somewhat, as shown in Figure 5. 

Тһе four bytes displayed represent a 
single-precision number and its a little 
more complicated than integer format, 
as it uses binary fractions and also an 
"exponent." 


Scientific Notation 

The single-precision number is very 
similar to scientific notation used in 
chemistry, physics, mathematics and 
other sciences. Scientific notation is 
used primarily to get rid of a lot of 
leading or trailing zeros and to make 
computations easier. It was especially 
valuable in the days before computers 
when there were a lot of hand compu- 
tations done. 

As an example, consider the number 
of inches to the moon. The moon is 
roughly 238,000 miles from the earth, so 
the number of inches is 238,000 miles x 
5280 feet/mile x 12 inches/ft - 
15,079,680,000 inches. 

Is there an easier way to express this 
number? The way used in scientific 
notation is to “normalize” the number 
to a single integer digit and a fraction 
by using a power of 10 exponent: 


15,079,680,000. x 100 - 
1010. 

To get the power of 10, just count off 
decimal places and use the count as the 
exponent. For every place counted to 
the left, add one to the exponent; the 
exponent starts with zero, as 10 to the 
zero power is one. 

Here's another example. Consider 
how large a square inch is in acres. One 
acre/(43,560 square feet x 144 square 
inches/square foot) - 0.0000001531 
acres/square inch. 

To get the scientific notation of this 
number, count off decimal digit posi- 
tions to the right of the decimal point 
and subtract one from power of ten 
exponent, starting with zero: 
0.0000001531 x 100 = 1.531 x 10-7. 

When large and small numbers are 
represented in scientific notation, they 
can be easily manipulated — multiply- 
ing two numbers involves multiplying 
the fractional part and adding expo- 
nents, while dividing two numbers 
involves dividing the fractional part and 
subtracting exponents: 1.5 x 105 / 2.5 x 
102 = 1.5 / 2.5 x 105-2= 0.6 x 103. 

BASIC allows you to use a form of 
scientific notation for single-precision 
variables with the ʻE’ format. The 
number 15,079,680,000 = 1.5079680 x 
1019 is expressed in BASIC as 1. 5210, or 
similar forms, such as 15Е%9. The 
number 0.0000001595 = 1.594 x 10-7 is 
expressed as 1.594E-7. In these forms, 
the “10,” or base of the power, is 
understood. 


1.5079680 x 


Single-Precision Floating Point 
versus Scientific Notation 
The four bytes displayed in the pro- 


Figure 5 | 
Single-Precision Format in BASIC . 


Memory Representation 


|... Excess 128 exponent БІН 


Next 8 Fraction Bits 





gram I just showed you are also broken 
down into a mixed number and an 
exponent. In BASIC's single-precision 
format, however, the exponent is a 
power of two instead of 10. The mixed 
number is actually a fraction with the 
binary point to the extreme left (see 
Figure 5). 

Let's take an example. Suppose we 
wanted to represent the decimal number 
213.75. From conversion tables or 
conversion methods, you can convert 
213 in decimal to 11010101 binary. The 
fractional part of the number is equival- 
ent to binary 0.11, equal to % + М or 
34 or .75. The complete binary number 
with binary point is 11010101.11. 

The next step isto convert to the form 
of scientific notation used in single- 
precision numbers in BASIC, with a 
power of two and no integer portion. 
We can do this by moving the binary 
point to the right and simultaneously 
adding one to a power of two: 









| 1101010. 11х28, 
11110101.0111х2% 
ІШ 10111 x 23 


ОН 01010111 x 2*. 
111101010111 k2*. 
101010111 х m 





Entering 213.75 into the program 
above, we get: 






| | 1999190991919191 | 
su atl ЇН 





Looking at the format (Figure 5), we 
can see that the sign is zero, or positive, 
the fractional partis .10101 
011100000000000000 and that the expo- 
nent part — the power of two — is 
10001000. There are two problems here 
— where’s the missing one in the first 
bit of the fraction and why is the expo- 
nent 10001000 instead of 00001000? 

The first bit of the fraction is missing 
on purpose. Microsoft uses a scheme 
that says, in effect, the first bit to the 
right of the binary point will a/ways be 
a one bit, so why not simply discard it? 
The advantage of discarding the first bit 
is that it squeezes an extra bit of pre- 
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cision out of the fractional part. Putting 
in the missing one bit, which is always 
there in any single-precision number, 
therefore, gives .1101010111 
00000000000000, the proper fraction. 

But what about the exponent? Why 
is it 10001000 instead of 0001000 or 
eight, the proper power for the example 
of 213.75? The reason is that Microsoft 
uses a form of exponent representation 
called *excess 128." In this format, 128, 
or binary 10000000, is added to the eight 
bits of the exponent. To reconvert, we 
have to subtract the 128 once again. In 
this case (10001000 - 10000000) equals 
00001000, the proper exponent value. 
Actually, just flipping the leading bit 
will do the subtraction. Since both 
positive and negative powers of two 
must be represented in the exponent, 
the excess 128 scheme provides a range 
of positive and negative exponents that 
look something like Figure 6. 


Fieres 


111111119 01111111 = 2***7 
mnm (91111110 = TANT 


р 10000011 =i 00000011 = pe HH 
| 10000010 = 00000010 = 2+? 
77110000001 = 00000001 = 2+. 
| 10000000 = 00000000 = 2* 
//01111111 = 11111111 = 2-* 
//01111110 = 11111110 = 2-* 





Trying the negative of 213.75, we get: 


ПНЕ 
зарате 1 01010. | 
22221 


This example is identical to the first, 
except that the sign bit represents a 
negative fraction. Note that in the case 
of single-precision numbers, two's com- 
plete is not used — it's the sign/ magni- 
tude form we discussed before. 

The examples so far have been 
greater than zero. Let's try an example 
in which the exponent is negative (see 
Figure 7). 


ШЕТІ 


9. 0146404325. 


| decimal = 29. 00000000011. 
f binary | ; 


ПРВИ 
/0.0000000011 
0.000000011. . 
/0.00009011 
0.0000011 
0.000011 ;^ 
8.00011 
(0.011. 
(0.11 


2 0.07146484375 | 
9111911191999999 0 
0000000000000000 ` 





The sign bit here is zero, which is 
correct. The fraction is .X1000000 or 
.110000000000000000000000 with the 
missing sign bit added. The exponent is 
01110111. Flipping the sign bit (adding 
10000000), we get 11110111. This is a 
two's complement form of the expo- 
nent, so we'll have to convert (see Figure 
8). 


| Ті 8. 


(ТЕҢЕЙДІ Original 


90001000 After changing all ones to 
г тегов and all zerosto ones: 
+1 Adding one 


(00001001. Final a ail герге- 
sents 2-9 | 





The Range and Precision 
of Single-Precision 

Integer numbers can represent a 
range of values from -32,768 through 
+32,767 with about 46 decimal digits of 
precision. Single-precision numbers, 
though, have a much greater range 
because of the powers of two repres- 
ented. The maximum power of two is 
*127, the minimum -128. The value of 
2127 is about 1.7 x 1038 and the value of 
2-28 is about 3.4 x 10-38, making the 
range of single-precision numbers 
about 10-38 through 10435, 

The precision of single-precision 
numbers can be found by looking at the 


size of the fraction. With the missing 
one bit to the right of the binary point, 
it’s 24 bits. Numbers from 
000000000000000000000000 through 
111111111111111111111111 can be 
held in 24 bits, representing zero 
through 16,777,215 decimal. The preci- 
sion of single-precision numbers is 
therefore a little over seven decimal 
digits. That explains why entering 
PRINT 173 in BASIC results in 3.333333. 


Now What about that .1 Increment? 
The way this discussion first started 
was investigating why BASIC couldn't 
provide exact answers. You can see now 
that it provides exact answers if you 
limit yourself to integer values of 4% 
digits. Any result produced by single- 
precision, though, is not going to be 
exact, unless it's a power of two to begin 
with. Take the original example, adding 
0.1 to a count. Any fractional decimal 
number can be converted to binary by 
multiplying by two and using the integer 
to the left of the decimal point as the 
binary digit. In this case we have: 





From the above, it looks like 0.1 in 
binary is going to be a repeating series 
of the form 0.000110011001100. . . This 
is verified when we use the single- 
precision program to look at an entry 
of 0.1: 
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Figure 9 
Double-Precision Format in BASIC 


i "(Logical Representation) 


Sign bit: 0 = +; 1=- 
—P Binary point 


ГГ Excess 128 Exponent IS | 27 Fraction Bits | 


16 Fraction Bits | 


id ІНІН 16 Fraction Bits — | 
22222216 Fraction Виз | 


Fraction is read 


?:9.1 
0111110101001100 
11100110011001101 


The error in this representation is one 
part in 224, ог one part in 16,777,216. It's 
this error that leads to values of 
3.099999 instead of 3.1. Over along run 
of increments the effects of the error is 
even more obvious, as the error is 
accumulative. Running the program in 
Listing 4 and looking at the final value, 
we see 99.99904 instead of the expected 
100, an error of about one part in 
10,000. 





Listing 4. 
(199 FOR I = 1 TO 109 STEP .1 


111) PRINT I 
120 NEXT I 


How to Deal with BASIC Errors 

The errors in BASIC and other lan- 
guages are not going to go away. In most 
cases, they're not even bothersome — 
it's only when you need exact accuracy 
that single-precision errors are impor- 
tant. For good customer relations with 
an accounting package, for example, it's 
nice to have the cents balanced to the 
penny. 

One partial solution to the problem 
is to use double-precision variables 
instead of single-precision variables. 
Double-precision variables have the 
format shown in Figure 9. 

Here the exponent part is the same, 
but an additional four bytes have been 
added for the fractional part of the 
number, making the total number of 
fractional bits 56. There'll still be an 
error, but it will be one place in 256, 
about one place in 16 decimal digits. 


-= 


The total number of decimal digits with 
56 bits is also about 16 decimal digits. 
You'll be able to до a large number of 
calculations before any effects of accu- 
mulative error are felt. As an example, 
look at this increment (Listing 5). 





Listing 5 


3000 18-1: INCH = |1 


3010 l# = I4 + INC#: PRINT I4 
3020 GOTO 3010 





After 4,940 iterations (repeats) of this 
loop, the value printed stands at 
494.0000073462725 instead of 494, an 
error of about one place in eight decimal 
places. If the number represented dol- 
lars and cents, you could keep the cents 
accurate, provided you did rounding, as 
numbers such as 493.9999957575999 
are equally likely — the same error, but 
in the opposite direction. 

Rounding is easy if you use PRINT 
USING — it rounds automatically. If the 
number kept internally is 493. 
9999957575999, for example, doing a 
100 PRINT USING ^$$5,HHH.HH; АМТ 
would print $94.00. 

In the increment example (Listing 5), 
you never see an amount other than one 
representing dollar multiples of .10 — 
you'd see $92.40, $92.50, $92.60, etc. 

Another way to get an absolute pre- 
cision is to use a separate variable for 
cents and dollar amounts. If the 
amounts handled are never greater than 
seven digits, and only addition, subtrac- 


Listing 6 


100 NEWDOL = NEWDOL + TRANSDOL 
110 NEWCNTS - NEWCNTS % TRANSCNTS 


tion and multiplication are to be done, 
you can use single-precision for the 
dollar amounts. The dollar amounts 
will be exact for values up to $9,999,999. 
The cents values can be held in another 
single precision variable. Of course, it 
does make calculations a little laborious 
(see Listing 6). 

Is there such a thing as absolute 
precision? One scheme is BCD, or 
binary-coded-decimal. In this method 
of representing numbers, four bits hold 
these values: 


0000 > 0 
0001-1 
0010 - 2 
0011-3 
0100 = 4 
0101 =5 
0110 = 6 
0111-7 
1000 = 8 
1001 = 9 


Combinations of bits other than these 
(1010, 1011, 1100, 1101, 1110 and 1111) 
ordinarily allowed in binary, are not 
allowed for BCD. A BCD number may 
be as long as necessary, with two dec- 
imal digits represented per byte. Addi- 
tions, subtractions, multiplications and 
divisions are done in BCD fashion. 
Many early computers were BCD ma- 
chines, but binary representation be- 
came the de facto standard years ago. 
BCD can be implemented in BASIC with 
some trouble and loss of speed. It's a 
better bet in assembly language, where 
there are special BCD instructions, or 
in higher languages like Borland's 
Turbo PASCAL, which offers a BCD 
option for MS-DOS machines. 

“And so, that's about all I know on 
the subject of why BASIC can't represent 
numbers exactly. Any questions, Fred?" 
I asked, realizing I hadn't heard a peep 
out of him for several minutes. 

Fred was fast asleep, with a smile on 
his face. Probably dreaming about 
killings in the time-share condominium 
field, Ithought. *Wake up, Fred," I said. 

“Мррһ. Oh, guess I must have dozed 
off during the last part of your diatribe 
on single-precision. Forget it — I'll just 
use Lotus instead." О 


'find new dollar amt 
'find new cents amt 


120 IF NEWCNTS > 199 THEN NEWDOL = 
NEWDOL + 1: NEWCNTS = NEWCNTS -199 


"pump dollars 
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ТІНЕ Бойы 1000 


А screwdriver, 10 minutes апа а 825 стр 
are all that's needed to increase your 
1000% speed by 10 to 24 percent 


Supercharge your 
Tandy 1000 


By Brian H. Alsop 


hat's faster than a speeding 
PC XT? A Tandy 1000 is — 
if you replace its 8088 central 


processor with a NEC V-20. Tests show 
that one can expect up to 24 percent 
faster calculations with the NEC CPU. 
For $25, it's the best bargain in speed 
since the $8 crystal for the PC AT. This 
article describes the installation and 
testing of the V-20 in the Tandy 1000. 
Actually, testing took longer than 
installation. Anybody with a screw- 
driver and two fingers can do the instal- 
lation. 


Purchase and Installation 

My V-20 CPU was purchased from 
Exec-PC, P.O. Box 11191, Shorewood, 
WIS3211. It arrived three working days 
after purchase. The replacement CPU 
comes with complete instructions for 
replacing the CPU in the PC XT. The 
instructions apply as well to the Tandy 
1000 — except the 8088 CPU is located 
differently and the case is removed 
differently. Follow Exec-PC's instruc- 
tions with the following changes. 


Brian Alsop is an engineer working on 
introducing personal computers into 
the engineering work environment. He 
is a pilot and holds an amateur radio 
operator з license. 


Before doing anything, unplug the 
power cord, keyboard and other cables 
attached to the Tandy 1000. Wait about 
30 seconds. Unscrew the two front panel 
screws and slide the cabinet forward. 

In the Tandy 1000, the 8088 CPU is 
located in a front-to-back line with the 
middle expansion slot. It is clearly 
marked “8088” as well as with some 
Tandy numbers. 

Follow the 8088 removal instructions 
provided. It is particularly important to 
bend the pins of the NEC V-20 inward 
so that it will fit in the socket. ICs are 
normally shipped with their pins angled 
outward. The instructions suggest two 
ways to bend the pins to fit. A better 
way is to set the IC on a flat surface with 
one row of pins on the surface. Gently 
roll the IC to bend the pins in the proper 
direction. This keeps all pins in a line. 
Repeat the process for the other row of 
pins. Compare them to the removed 
8088. When the two show the same pin 
spacing, plug the V-20 in as described. 
The notch should be toward the front 
panel. The circuit board has the notch 
position indicated as well. 

Carefully inspect the installation for 
pins that are bent or not inserted. Push 
the IC down as far as it can go. Mine 
first went in and then popped in even 
further with a little more force. Slide on 
the cover and test the installation. 
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Testing and Using It 

Now for the fun. Plug in the Tandy 
1000, keyboard and monitor. Turn the 
monitor on. After it's warmed up, turn 
the Tandy 1000 on. The amount of 
installed memory should immediately 
be displayed. If it is not, quickly turn off 
the Tandy 1000 — you made some error 
that might or might not cost $25 to fix; 
inspect the installation for bent or 
uninserted pins. If the proper amount of 
memory is displayed, you've been suc- 
cessful. 

Tighten the two front screws and 
connect all peripherals. The V-20 is 
advertised to be 100 percent compatible 
with 8088 software. It gets its increase 
in speed by using fewer instructions to 
perform memory reads and writes as 
well as some other operations. 

I've tested this unit with BASIC, FOR- 
TRAN and compiled BASIC programs 
created before V-20 installation. Several 
commercial programs were also tested 
successfully. 

Table 1 shows the percentage im- 
provements obtained in BASIC with the 
V-20 installed. Pure math operations 
such as addition and multiplication 
were sped up 24 percent. All input- 
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2. UNDELETE Plus — Recover deleted files, graphics 
display of directory tree, rename directory, find 
files in any directory, display sorted check files, 

change file attributes, and more (10 programs in 


all). 
. SNAPSHOT — Instantly save and display up to 99 
text screens. Great for debugging, Help screens, 


4. XTEND — Instantly recall, edit and execute your 
last 30 DOS commands. Execute multiple com- 
mands with one keystroke. (Macro facilities). 


5. GRAFIX — Send graphics screen image to printer. 
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output operations to disk were no 
faster. The few FORTRAN problems 
tested yielded a 10 to 15 percent im- 
provement. The word processor pro- 
gram used seemed to display new pages 
appreciably faster. Unfortunately, the 
long wait for the system to boot up is 
no faster. Expect at least a 25 percent 
improvement in input-output to a vir- 
tual disk, 

Note that the Tandy 1000 is now at 
least 15 percent faster than the stock PC 
XT. 


Is it worth it? I'd say yes — if you 
work a lot in BASIC. I don't know about 
FORTRAN or assembly language. If a job 
takes seconds, the benefit is probably 
not worth the cost. If you run jobs that 
take tens of minutes (a big spreadsheet) 
then even a 10 percent savings is worth 
it. You decide. 

Now for the bonus. Exec-PC allows 
you 10 days free access to over 3,000 free 
programs on their bulletin board. You 
certainly can't lose with this speed-up 
kit! 















Operation 


Subtract 41 
Ада 41 
Multiply 43 
Divide 43 
I/O Floppy 27 


ЏО Hard Disk ~ 19 


Notes; 1) Times are in seconds 
2) 10,000 math operations 


“HI THERE” 




















ORDER TOLL FREE 







Table 1. Computer Speed Comparisons 


Tandy 1000 Tandy 1000/ У20 


3) I/O problem read/write of a Ше containing 1,000 lines of 
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ІІ Delphi Bureau 


With any collection of public domain programs, 


the name of the game їз... 





Share and Share Alike 


Kevin Nickols 
MS-DOS SIG Manager 





all the features of the Delphi MS-DOS SIG, it's 
O f the database that can prove the most valuable 

to the members. This is where you can share the 
programs you write with other users, and where you can 
download programs yourself — everything from short 
utilities to some of the finest full-featured terminal 
programs available anywhere. 

But the MS-DOS SIG database is a collection of 
programs uploaded and submitted by the members. In other 
words, it takes alot of member participation to build a really 
good collection. The more all the members are willing to 
participate, the better the database collection will become. 

For this reason, let's look at the process of uploading a 
file to your Workspace in the SIG, the first step in sharing 
programs with other Tandy users. 

The first thing you have to do is get the program 
transferred, over the telephone line, to the Delphi host. 
Now, a high-speed data transfer can be an intimidating, 
mind-boggling thing if you try to put too much thought into 
it. But in practice, it couldn't be more simple. 

Any program uploading to the SIG must be done in the 
area known as your Workspace. At the MS-DOS SIG 
prompt, type DR to enter into the database and then select 
one of the topics by typing in the first few letters. (Re- 
member that it really doesn't matter which topic is selected; 
you can still submit a program to any of the other topics.) 
From here you can enter the Workspace by typing WO. 

Inside the Workspace, you will find that it is nothing more 
than a file storage area, just like a hard or floppy disk. Many 
of the MS-DOS file commands you're already familiar with 
function just the same as they do on your computer. You 
can rename a file with REN, copy a file with COPY, get a 
directory with DIR, and the DOS question mark (?) and 
asterisk (*) wild cards function the same, too. 

There are actually more ways than one to upload a file, 
depending on what type of file it is, what protocols your 
own terminal program supports, and even personal 
preference. If you want to upload a pure ASCII text file 
ог BASIC program saved in ASCII, you can upload it as ап 
ASCII transfer. Just type UP filename, then respond with 
*no" when the system asks whether you want a line feed 
sent after every line. Begin the ASCII transfer on your 
terminal and you will see all of the characters start flowing 
across the screen as if you were typing them in yourself. 
When the file has finished, send a CONTROL-Z to close the 
file. 


Now the ASCII transfer is fine in many cases, particularly 
for short messages, but there is no error-checking going on 
during the transfer. If your telephone connection is noisy, 
you can wind up with characters in the receiving file that 
shouldn't be there. So you can see, for something critical 
like a BASIC program, this is not a very reliable method of 
transfer even though it is ASCII. 

Enter the error-checking protocols, Xmodem and Kermit 
(not the only two, by any means, but two of the most 
popular and the only ones currently supported by Delphi). 
When transferring binary files, it is necessary to use one of 
these protocols, but you should also go this route when 
transferring ASCII files if an error-free transfer is impera- 
tive. Under these protocols, your computer quickly sends 
a block of data, then communicates with the host computer 
to see if the block received is exactly like the one sent. If 
not, it resends the same block again and keeps trying until 
it gets it right or the transfer is aborted. 

To begin an Xmodem upload, enter your Workspace and 
type XUP filename. When asked whether it is a text or 
binary file, answer appropriately. In a couple of seconds, 
the system will tell you *OK, send." From here, it's up to 
you to begin the transfer on your computer. When it has 
begun properly, your terminal program will probably 
display information about each block as it is transferred so 
you know everything is moving along successfully. 

For a Kermit upload to your Workspace, type KUP. Notice 
that it is not necessary to specify the filename. You can if 
you want to, but Kermit transfers the proper filename, along 
with other information, in the file header. Here, too, the 
system asks whether you will be sending only text files; 
answer yes or no and begin the transfer on your machine. 

Now, you may have noticed the word “only” above and 
wondered about it. This is because, with Kermit, you can 
do “batch” transfers as well as single files. For instance, you 
can upload *.BRS and transfer every BASIC program that 
happens to be on the disk in your default drive at once. The 
only catch to this is that you cannot mix ASCII and binary 
files in the same batch transfer. 


OK, so the command to begin an ASCII transfer is UP, 
an Xmodem transfer is XUP and a Kermit transfer is KUP. 
Simple enough, right? Just enter the MS-DOS SIG, go into 
your Workspace and upload a short test file using each of 
the protocols. Next month we'll look at some of the things 
you can do with a file after it has been uploaded. р 
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This programming tip comes from Barry 
Erick of Dallas, Pennsylvania. It is a method for 
turning the caps lock on and off from within 
a BASIC program running on a Tandy 1000 or 
1200: 


DEF 5ЕС=0: POKE 1047,РЕЕК(1047) 
OR 64  'Caps Lock On 


DEF 5ЕС-й: POKE 1047,РЕЕК(1047) 
AND 32 'Caps Lock Off 


Send your hints and tips to PCM Helpful 
Hints, P.O. Box 385, Prospect, KY 40059. 
Selected winners will receive $10 upon publi- 
cation. 





For Your MSDOS Computer 
Tandy 1000/1200/2000/3000 and PCs 
RAMDISK ($49) 


Use spare memory to simulate one or more super—fast 
disks. Any size. Greatly speed up existing applications. 
Appears to programs as а disk, but gives instant 
access. Highly efficient, compact, and thoroughly tested. 
Includes program to install and change RAMDISK size, 
and RAMDISK 1/0 access report. 


FULLBACK (588) 


А Perfect File Backup System !!! 


Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one, several, or А 

subdirectories. Backup modified only, or ALL files. 
Keeps perfectly organized backups — backup structure and 
file format are identical to original. Supports backup by 
date, multiple backup copies, large files (up to 32MB). 
Far superior to DOS BACKUP, easier to use, and much 
more reliable. Absolutely a MUST for hard disk users. 


НІР-РОСКЕТ HELPERS @ 


The ALPS Hip—Pocket Helpers is а collection ог 
powerful and easy to use utility programs. They 
include a slick Directory Tree, a sorted 5—across directory 
display, a sophisticated keyboard substitution aid (only 5K 
of RAM), utilities to search through ALL directories for 
file names or even strings within a file, and much, much 
more. 29 utilities in all. Call or write for info. Price 
and performance you can't find elsewhere. 


ALL ALPS Software is Fully Guaranteed !!! 
Full Customer Support on our Hotline — 303—687—1442 
Call or Write for our complete catalog of products. 








ALPS 
1502 County Road 25 
Woodland Park, Colorado 80866 


800—232—ALPS (Toll-Free) 


Correction for Graphics Screen Dump 


There was a line omitted from the listing of 
Graphics Screen Dump, by Peter T. Lee (March, 
1986). The missing line and the lines directly above 
and below it are listed here. 


9D29:915D 0108 
9D29:915F 89С1 
9D29:0161 2E 


YOU ALREADY HAVE 
HALF OF THE BEST 
WORD PROCESSING 
SYSTEM IN THE WORLD 


more, your MultiMate, 
Display Write, WordStar, pfs: WRITE, 
VolksWriter, Writing Assistant or other WP 


Software! can instantly ПЫ fourteen 
columns of text, 2 automatically 
Gre create outlines, calendars £24 5 

255 ош, 


newsletters contracts, Р 
ZA easy mail merges T 

screenplays, scripts, footnotes?, Pu 

and lots more. It's fun with 


Powerlext 


1 Any other MS-DOS or ASCII WP Software F О Ё М. А ТТЕК 


2 On the same page or end of your document ` 


TO ORDER, CALL OR WRITE: % BEAMAN PORTER, INC. 
A 417 HALSTEAD AVENUE 
HARRISON, NY 10528 
(800) 431-0007 
"Add $5 for Shipping and Handling. (914) 835-3156 IN NEW YORK 
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Play Writer — Write, Edit, 
Illustrate, Print and Bind 
your Own Book 


Software 1000/1200/2000/3000 


“Write, Edit, Illustrate, Print, and 
Bind Your Own Book” — this quote is 
from the cover of Mystery, one of the 
Play Writer series. Play Writer comes 
with different versions for Adventures 
In Space, Tales Of Me, Mystery and 
Castles & Creatures. All versions, ex- 
cept one for Apple only, are available 
for IBM PC and PCjr, Commodore 64 
and Apple. This review is of Mystery for 
the IBM PC as used on a Tandy 1000 
with 256K. As usual, the Tandy worked 
fine with a product designed for the 
IBM PC. 

Play Writer does indeed help to write, 
edit, illustrate, print and bind your own 
book. The software guides you through 
the writing of a five chapter story with 
some of the writing being provided by 
Play Writer and the rest provided by 
you, with helpful prompts and choices 
as a guide. Simple editing features are 
included so rough drafts of your book 
can be reviewed and modified as de- 
sired. Four full-page color illustrations 
and 30 colorful and appropriately se- 
lected stickers provide for the illustra- 
tions in your book. Of course, you can 
use your own stickers or artwork if you 
wish. The final version of your book is 
printed on specially sized paper pro- 
vided. The provided colorful hardcover 
is used to easily bind your finished book 
with the special adhesive first and last 
pages provided. 

Play Writer comes with one disk 
110 
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which can be backed up, but the backup 
copy cannot be run. The backup can 
only be used to restore files on the 
original disk. Included in the package 
are a small 16-page Writer’s Guide of 
instructions, the disk, the four full-page 
illustrations, the four pages containing 
30 stickers, the small pack of paper for 
printing the book, the two self-adhesive 
pages for binding, the hard cover and 
an order blank. 

The instructions cover getting started 
for the Apple II series, the IBM PC and 
PCjr and the Commodore 64. An op- 
tional procedure for using separate 
disks to store your finished stories is 
explained. Writing stories with Play 
Writer, saving the story, using the 
editor, printing the stories, printing 
options, binding the book and trouble- 
shooting for problems are all covered in 
the 16-page instructions. The instruc- 
tions are brief, simple and easy to 
follow. The on-screen prompts are 
about all that’s needed once you get 
started. There is one caution here; the 
supplies for book making don’t come 
with any extras. If you mess up part of 
it, you are on your own for getting 
around the problem unless you want to 
order a refill pack from Woodbury 
Software. 

The instructions for Mystery state 
that it’s for ages 9 and up. Once my 10- 
year-old daughter got a look at the 
package, she was ready to immediately 
try it. With a minimum of help from 
Dad to get her started, she was totally 
absorbed with the process of making 
her first book. It took her about two and 
one-half to three hours to make her first 


story and get a draft printed on plain 
paper for review. Most of this time, Dad 
was looking over her shoulder to see 
how Play Writer was working and 
answering questions about how to spell 
different words. Later that same day, 
she decided to do another story when 
Dad wasn’t available for help with the 
spelling. With only one or two excep- 
tions, she managed to complete another 
story on her own, including the spelling. 

Based on our experience, it would 
seem that ages 9 and up is right. Play 
Writer provides part of the story, prob- 
ably more than half. Teenagers and 
adults will probably not use Play Writer 
much after the initial fascination with 
seeing how it works. There isn’t enough 
control over all details of the book for 
a serious writer, but Play Writer isn’t 
aimed at serious writers. However, 9- 
through 12-year-old children will prob- 
ably be happy to produce a quantity of 
stories before tiring of the package. 
How else could I have gotten my 10- 
year-old to spend several hours in one 
day at the computer practicing creative 
writing? She had a short book all writ- 
ten in draft form in this short time 
frame. 

The options for setup include some 
limited choices about printers. For my 
Tandy 1000 using the IBM setup, the 
choice was for CR/ LF or CR only, That 
represents carriage return and line feed 
or carriage return only. I used the 
default of CR/LF which resulted in all 
printed output being double-spaced as 
was intended. The setup also includes 
specifying if your computer has one or 
two disk drives or a hard disk. 
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The first menu choice that appears on 
the screen gives you the choice of 
working with an old story, starting a 
new story, deleting stories, changing to 
another story disk, telling Play Writer 
about your disk drive setup or quitting. 
Once you start a story, you are given 
about three different types of prompts 
to complete your part of the story. 

You may be given a menu of choices 
such as this one listed in the instruc- 
tions: 

NASA wants to use a kid in space 
since grown-ups don't do well on 
long journeys. Is it because grown- 
ups: 

1. get spacesickness 

2. miss their kids too much 

3. are too sensible to take chances 

4. other 
At this point you enter one of the 
numbers (1, 2, 3 or 4). If you enter ‘4’ 
for other, you are given the opportunity 
to enter your own reason for why 
grown-ups don't do well in space. A 
series of dashes is displayed followed by 
underscores “(------- )." The 
various similar prompts may use just 
part of one line or extend for several 
lines. The dashes indicate the minimum 


amount of text that is to be entered and 
the full length indicates the maximum 
size entry that's allowed. 

Using this NASA example, let me 
explain how the stories get a great deal 
of variation. If you enter 41” as your 
choice, the Play Writer generates its 
portion of the story a certain way. If you 
enter ‘2’, Play Writer will generate a 
variation of the story which is different 
from choice “17, and choosing ‘3’ gives 
yet another variation. Doing it yourself 
by selecting other, causes a fourth 
variation of the story. By considering 
that this type of choice is made repeat- 
edly throughout the development of the 
story, it’s easy to see how a very large 
number of story variations are possible. 
There are many combinations of choic- 
es that could be made while progressing 
through the book. The stickers pro- 
vided are designed to fit in quite nicely 
with the various story variations avail- 
able. 

A second type of prompt you are 
given is simply to fill in a blank. This 
is commonly used so that you can give 
your own names to all or at least most 
of the characters in the story. Play 
Writer automatically remembers the 


names you provide for use throughout 
the story. 

The third type of prompt asks you to 
complete a sentence such as describing 
how the victim made his fortune, what 
impressed you about the mansion when 
you first entered, or how your client 
appeared when first entering your of- 
fice. This makes it easy to use your 
imagination for adding your own crea- 
tive ideas to the story. 

Play Writer has short pauses while 
the story is saved to disk or retrieved 
from the disk, etc. During these pauses, 
neat little messages are displayed. Ex- 
amples: “Please wait til I get back,” 
“Please don’t shut off your computer, 
I’ve got to clean up,” “It’s Been a 
Pleasure Working With You, Julie.” 
That’s right, it asks for your name at the 
beginning and uses it in some of the 
messages. 

Another feature to help hold the 
interest of a young writer is the plentiful 
use of riddles throughout the story 
writing session. These usually come up 
when there is a pause to save the story 
to disk, etc. They are about like this for 
Mystery: “OK, I'll Put That Away,” 
(after edit changes to your story) 


FAST CASSETTE STORAGE 


for Model 100 Text Files 


Save .DO files up to THREE times as fast 
Load text more than TWICE as fast SEAL 


CERTIFICATION 


WHAT IS “FAST”? 


FAST™ is a revolutionary concept in the way the Model 100 
handles the storage and retrieval of text (.DO) files. FAST saves 
or loads text іп one continuous stream of data — the same way 
BASIC programs are saved and loaded. The package (compat- 
ible with M/L programs) consists of two easy-to-load programs: 


The SAVER-BACKUP program occupies approximately 900 
bytes of RAM — small enough to always carry along, whether 
at home or on the road. 


The LOADER program, which occupies 2K of memory (and 
is easily reducible to 1.3K), makes loading text easier than ever. 
When loading, a unique Search Mode feature presents the name 
and length of each file encountered, and allows user to decide 
whether to load, or to skip on to the next file on the tape. And 
unlike the “Old Way,” the program will warn the user before 
loading if insufficient memory is present, and exactly how much 
more will need to be freed. Error-checking has been improved 
(no more dropping of 256-byte chunks of text), and now you can 
even load flawed tape files — which are usually still usable, and 
maybe even crucial. 


The Facts: The recording time to save a 5K file is now only 39 
sec (vs 106 sec). A 10K file takes 1.1 min (vs 3.4 min). But there's 
more... 


OTHER FEATURES: 

e Backup all your irreplaceable Text (including ADRS and 
NOTE) in one quick, convenient operation. This feature 
alone is worth the price. 

е Verify cassette saves before erasing files from memory. 

ө Recover data "lost" after a Cold Start. 


e Store three times as much text on each cassette (500K per 
60' cassette). 


е Access cassette files three times as fast. 


This totally NEW concept is from MinSof™ — which is committed 
exclusively to developing software for laptop portables. 


Organization, Dealer, and all other inquiries: Send stamped, self- 
addressed envelope for quickest response. 


$19.95 


MinSof, Inc. 
Box 1153 
Minneapolis, MN 
55440 


Check or Money Order 
(Please include ZIP code) 
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“Meanwhile, Try this Riddle. What did 
one detective say to the annoying detec- 
tive? Get off my case!" 

The edit options for making revisions 
to the story on the Tandy 1000 are: Use 
the left arrow to move the cursor left 
within the text, the right arrow for right 
or the down arrow for down. For some 
reason, the up arrow isn't allowed. You 
can retype over the text already entered, 
use the delete key to delete or insert by 
use of the insert key. When editing your 
story, a menu of the five chapters is 
displayed. You enter the number for the 
chapter and each paragraph is displayed 
one at a time for editing. The F1 key calls 
up a help screen and the F2 key restores 
the paragraph to its original form 
before you started revisions. When 
finished with the paragraph, the ENTER 
key causes the revisions to be saved. 

The display of one complete para- 
graph at a time is handy for editing. A 
menu choice is given to move back one 
paragraph, to move forward one para- 
graph, to edit the paragraph currently 
displayed and to quit. The quit option 
takes you back to the menu of chapter 
choices which also includes a quit 
choice. 

One slightly annoying feature here is 
that the chapter numbers are not 
printed. You must determine for your- 
self where one chapter ends and another 
begins while editing your draft story. 
For example, if you want to edit a 
certain paragraph in the middle of your 
draft printout, you can only guess in 
which chapter the paragraph is. The 
chapter designations are used primarily 
for providing handy stopping points 
during writing of the book. Menu 
prompts are provided at the end of each 
chapter for saving your work or contin- 
uing to the next chapter. 

Play Writer comes with just enough 
paper and supplies to complete one 
properly illustrated book. There are 
some extra stickers left after the first 
book, but much less than half if your 
child likes to use stickers. As the instruc- 
tions state, you may make as many 
additional books as you wish using your 
own graphics supplies and paper. You 
could print a book in final format on 
your paper and cut it to size by hand. 
Of course, you can also order refill 
packs for completing another book 
from Woodbury Software. That may be 
the best choice because the book is 
printed in a format that matches the size 
of the supplied stickers. You have no 
control over the printed format, which 
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automatically provides blank areas on 
the page for graphics. The actual bind- 
ing with a stapler and the provided 
adhesive pages goes fairly well, but you 
must be careful. 

The finished book is 30 pages long if 
you include the title page, the dedica- 
tion page, four illustration pages and 
text pages. The pages аге 5! by 84 with 
a slightly larger cover. Considering that 
the book is double-spaced throughout 
and uses generous margins, the final 
book isn’t really very long. It’s a good 
size to make a nice project for ages 9 
through 12. 

I recommend Play Writer if you wish 
to promote creative writing by children 
of the proper age. It can even generate 
a budding interest in creative writing for 
your child. 


(Woodbury Software, 127 White Oak Lane, 
CN 1001, Old Bridge, NJ 08857, 201-679- 
0200, $39.95 with refill packs at $9.95. Add 
$2.50 for first item and $1.00 for each 
additional item S/H.) 


— Robert Jensen 


Software 1000/1200/2000/3000 


Probaloto — Not 
Just Another 
Random Number 
Lottery 


It’s in the news a lot lately: “Local 
Citizen Wins Millions in State Lottery.” 
With more and more states offering 
lotteries, Probaloto by Gary Olander 
may be just the ticket for you. 

The documentation points out that 
Probaloto is not “just another random 
number generating lottery program;" 
the object, however, is to pick the 
numbers to win you millions. The 
program comes on a diskette which, 
while copy-protected, allows backup of 
the executable file. This backup file 
must be restored to the original disk for 
program operation. The only system 
requirements listed in the documenta- 
поп are “MS-DOS.” The program 
operated properly with MS-DOS 2.11 
on a Tandy 1200HD with 256K RAM. 


Mr. Olander assured me that the version 
I received will run on the Tandy 1000, 
1200 and 3000 with only 128K, and that 
a version is also available for the 2000. 
Probaloto is well documented: The 
program is menu-driven, and so easy to 
use that after going through the docu- 
mentation once, you'll probably file it 
away. 

The user is prompted for information 
about the particular lottery being en- 
tered: how many numbers are picked, 
and from a range of how many 
numbers. The example given for a 
regular lottery picks six numbers, from 
one to 40, but these parameters can be 
changed. Output can be routed to the 
screen, or to screen and printer. 

The first three selections from the 
main menu are strictly random number 
generators. The first picks three 
numbers (zero to nine), the second picks 
four numbers (zero to nine), and the 
third picks six numbers (one to 40), for 
what is called the regular lottery game. 

The fourth selection from the main 
menu is labeled “weighted” random 
selections. This is the feature which 
makes the program more than just a 
random number generator. The user has 
the option of setting up *weighted" data 
files using lists of past winning numbers 
which are available where lottery tickets 
are purchased. This is easily done by 
answering prompts to input the number 
of times each number (one to 40 or zero 
to nine) has been a winner. These files 
can be labeled and saved to disk, and 
a hard copy can be listed by the printer. 

The weighted random selection pro- 
cess can use these data files in one of two 
ways. If the user feels that since the 
process used to select winning numbers 
picked twice as many fours as 17s in the 
past, it is therefore likely to continue 
that trend in the future, the program can 
weight towards the most picked 
numbers. In the example given, the 
program would be twice as likely to 
“randomly” select a four as а 17. If, 
however, the user feels that Lady Luck 
plays her hand such that poor old 17 is 
due, the program can weight toward 
least picked numbers. The weighted 
data files operate as if you place 
numbers in a hat in proportion (direct 
or inverse) to how many times that 
number has been picked. Selection from 
the hat is then random, but weighted. 
This weighted selection procedure can 
also be used to set up data files which 
will favor the selection of your lucky 
numbers, or conversely, tend to avoid 
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your unlucky numbers. 

To test this weighting process, I wrote 
a short BASIC program to generate at 
random regular lottery game winning 
numbers. I input 60 sets of six numbers 
into a data file and used this to have 
Probaloto make selections weighted 
toward the most picked numbers. I then 
had Probaloto make an equal number 
of selections strictly at random. When 
these results were compared to my 
original list, the weighted selections 
produced 7.5 percent more matches 
than the random selections. My original 
list was fairly well distributed. More 
pronounced variations in frequencies in 
the data input (such as might occur if 
the lottery selection procedure is not 
truly random) would have added to the 
weighting effect and increased that 
percentage. 

I reviewed the Color Computer ver- 
sion of Probaloto for THE RAINBOW 
several months ago. At that time I 
indicated that my criticisms of the 
program were very minor. All but one 
of these have been corrected in this 
version (and in the latest Color Compu- 
ter version). Mr. Olander responded to 
my criticisms, and I will give PCM 
readers the benefit of his response to the 
' one which remains. 

My criticism is that the data file 
printout produced by the program is a 
narrow column near the left margin 
consisting of numbers and the times 
each has been picked. For a regular 
lottery game this column is 40 lines 
long, using much more paper than 
would be necessary if the output were 
better formatted. Mr. Olander points 
out that not knowing how many 
numbers are to be printed makes for- 
matting difficult. From my program- 
ming experience, I have to agree — but 
I know it can be done. As Mr. Olander 
pointed out, the printout for a one to 
48 lottery still takes less than one sheet. 

If you are into playing a lottery, and 
believe that the game is truly random in 
practice as in theory, stick to the ran- 
dom number generator available in 
BASIC. On the other hand, if you feel 
that Lady Luck is not always random 
and want to use some sophisticated 
mathematics to bring her in on your 
side, then Probaloto may be just the 
thing for you. I'll second the program's 
sign-off message: “Good Luck!" 


(Gary Olander, 322 Haymarket РІ., Ga- 
hanna, OH 43230, 614-475-3315, $29.95) 


— Stanley Townsend 


Software 1000/1200/3000 


Chuckle Pops: 
Laughs at the 
Touch of a Key 


Every once in a while it happens. 
Someone comes along with something 
so different and unique that you just sit 
back and say, “Wow!” 


Lotus Development did it with /-2-3. 
The idea of a spreadsheet and graphics 
was unique for its time. Digital Re- 
search’s GEM software is the same way. 
Borland International’s Sidekick rated 
the same kudos and started a wave of 
memory-resident programs that is yet to 
be abated. 

OK. So these are some pretty heavy 
hitters. But there are a lot of others that 
are “just the thing” to make living with 
a computer а real joy. And when we see 
them, we have to tell someone about it. 
Right away. 

Enter Chuckle Pops. 

I absolutely adore jokes. And jokes 
are what Chuckle Pops is all about. This 


Software 100 


BUSS: Time is 
Money 


Ге is money. It may be ап old 
cliche but most everyone would 
agree that it's true. If you do any 
type of work that involves charging for 
time, then the saying is even more valid. 
If, in addition to charging for time, you 
also need to be reimbursed for materials 
used during the job, then BUSS.BA 
comes to the rescue. 

BUSS.BA is a billing and time- 
keeping program. It is useful to anyone 
who must charge for time and supplies 
and would like to produce printed 
records and bills. This includes carpen- 
ters, repairmen, mechanics, account- 
ants, consultants and so forth. The 
program has two separate time clocks 
that can be punched in and out, Any 


is a memory-resident program that pops 
up a joke whenever you need a laugh. 
There are a couple of hundred jokes in 
Chuckle Pops (and most of them are 
pretty good) and you can add in your 
own as well! Rumor has it that there will 
be new joke disks available, too. 

АП that is not the point. What is the 
point is that everyone needs a laugh 
from time to time. While in the middle 
of a spreadsheet, a complicated chart 
design or whatever, all you need to do 
is press ALT-J (for joke, get it) and a 
window pops up on the screen to give 
you a chuckle. 

No, Chuckle Pops won't set the world 
on fire, but for $14.95, who can't use 
some respite from the serious work he 
or she does with an MS-DOS machine? 
It works with the 1000, 1200 and 3000. 
And it works well. Even gives colored 
windows with a color monitor. 

I have had three other memory- 
resident programs loaded at the same 
time as Chuckle Pops with no conflict. 

Try it — you'll like it. And, in the 
meantime, have you heard the one 
about... 


(Enlighten, P.O. Box 2037, Ann Arbor, MI 
48106, 800-447-1771, $14.95) 


— Lawrence Falk 


item can be registered as sold with or 
without tax. The program can also be 
used as a simple ledger with expense 
accounts, income accounts and any 
number of tracking accounts. 

The program is supplied on cassette 
and comes with a 24-page instruction 
manual. It requires 6,000 bytes, an 
additional 1,000 bytes overhead, and 
eight empty file spaces on the main 
menu. It will not run on the Model 200. 
I could not get the program to function 
properly with Tandy's new portable 3.5- 
inch disk drive. This was due to inter- 
ference with the large amount of mem- 
ory required by the machine language 
floppy-drive program and BUSS. ВА. 1 
would expect other machine language 
programs to cause problems too. 

The manual gives complete loading 
instructions and, once loaded, the 
program must be customized to the 
application. The user must edit four 
program lines to show the name and 
address of the business, tax rate and the 
rates for the two time clocks. The step- 
by-step instructions take the user 
through this process very easily and I 
had no problems. As an extensive user 
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of business programs, I would have 
preferred this information be kept in a 
file and not in the program, but the 
instructions made up for the awkward- 
ness. Once all changes have been made, 
the new version must be saved to 
cassette so the changes will not have to 
be made again. 

Once the backup is made and stored, 
you are ready to run the program. АП 
functions are menu-driven and the main 
menu is shown in Figure 1. 


Figure 1 


| NEW АСС. 
1:010 ACC. 
I DSP, АСС. Ж. DEL. ENTRIES 
{РА АСС. 1 DEL. FILE 
APP . TIME 

: CHARGE ТОМ. ТІМЕ2 

: NOTES ; 
LABEL 


EXIT MM/DD/YY 


Д Bytes Free 
(Copyright 1985 Burkhart) 
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Тһе program is not particularly tol- 
erant of errors and assumes a working 
knowledge of the Model 100. It is 
recommended to use all uppercase 
letters or follow the same format reli- 
giously during data entry. This is be- 


The Preble NavComp 11 


Two Aviation Programs in one package! 
New Enhanced Version For the Model 100 or new 


Tandy 200! 
NavPin NavAid 


For Flight Planning 


• Creates Navigation Log! 

• Saves Route of Flight for 
repeat use! 

• Compensates for Climbs and 
Descents! 

ө Statute or Nautical 
measurements! 

• Self Prompting with error 
prevention! 

% Fly direct or use VORS! 

• And many other advanced 
features! 


Time! 


data loss! 


Requires Radio Shack Model 100 with at least 16K or the new Tandy 


200! 

Attention Radio Amateurs! 
The Preble HAMTERM! 
For the Model 100 or new Tandy 200! 


Announcing: 





For In Flight Navigation 


cause the search routine differentiates 
between upper- and lowercase. I do not 
like to worry with that kind of detail. 
During data and note entry, no commas 
are allowed and there are times when 
commas are needed. The printer must 
be online and ready to print when the 
print option is chosen or the computer 
locks up. 

These things do not make this pro- 
gram unusable, but they are annoying. 
You cannot edit or delete a single 
account entry other than by going into 
the file itself. This can lead to disaster 
if a typographical error is made or the 
data format is incorrect. Otherwise, 
BUSS.BA does the job and performs as 
promised. 

For the program to work, there must 
be at least one account. The input screen 
is shown in Figure 2. No commas are 
allowed to be entered into any of these 
fields. Once all the information has been 
entered, you are given three options: R. 
File, B. Make Correction and C. 
Exit. Pressing ñ files the entry, pressing 
B returns to the beginning of entry and 
allows you to correct a mistake by 
typing over old information, and C exits 
to the main menu. 


pe 


@ Tracks your flight in Real 


% Modify Flight Data as 
necessary! 

ө Incredible Graphic displays! 

• Shows Position, Fuel, 
Intersections! 

• ETA'S, Ground Speed, and 
much more! 

* Turn off and on without 


== 





MULTIFUNCTION 
CARD (Ser. Par. 
Real Time Clock 
Game Port 0-384K) 
each 64K installed 


Color Graphics Card 
(with Composite 
& Light Pen Ports) 


FOR MODEL 1000 


Figure 2 


NAME 

ADDRESS: 

CITY: 

H:(home phone) 


STATE: 
: W:(work phone) 
APP: (appointment or comment) Н 
JOB L00.: 1 


The OLD RCC option allows the user 
to search the database and retrieve a 
previously entered account. This is also 
the option to activate an account. You 
must activate a particular account for 
printing, deleting, charging to and so 
on. This option prompts with F IND? and 
you type in any portion of any field in 
the database. The program displays all 
accounts that match (one at a time) and 
the user chooses which one to use. That 
account becomes the active customer 
account. 

The DSP RCC option allows viewing 
billing entries for the active customer 
account. The display shows each entry 
with item total then summarizes with 
total tax, grand total and balance at the 
end of the display. If there are more 


TOLL FREE ORDER LINE 
(800) 245-6228 


FOR MODEL 1200 
and IBM PC 


"NEIGHBORHOOD 
be. oos 


STORE* 
$149. $759.90 
$10. $95.00 
$350. 2 


NO 
EQUIVALENT 


$110. 


* Radioteletype operation for BAUDOT, ASCII, AMTOR, CW! 

• Split Screen Operation in receive mode with unlimited type ahead 
capability! 

• Word Buffer in Transmit Mode! Corrects errors before they are sent! 

* Automatic CQ! — Automatic Station Call! — Automatic Logging! 

% Echo to printer! — Download! — Upload! — Send Time and Date! 


SECOND DRIVE 
(Exact Match) 


10 MEG 
HARD DRIVE & 
CONTROLLER 


$124. 9299.90 
$575.$1,000.% 


— Send RYRY! 
% And many other advanced features! 
Requires Kantronics UTU, RS Model 100 with at least 16K or the 
new Tandy 200! 
The Preble NavComp: Only $34.95 
The Preble HAMTERM: Only $29.95 
Shipping and handling $1.50 to U.S. and Canada — $5.00 to other 
countries. 
Free Brochures available! 
VISA, MasterCard or COD is OK! 
Order From: Dr. Preble’s Programs; 6540 Outer Loop; 
Louisville, KY 40228 (502) 966-8281 
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1/2 Height 
Low Power 


Call for 
LATEST 
PRICES!!! 
(800) 
245-6228 


WARRANTY 
YR. ON ALL ITEMS!!! 


М.С. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 

Mertztown. PA. 
19539 


PA Res Include6* Tax 
—PA (215) 682-6855 
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entries than will fit on the screen, the 
program pauses until a key is pressed to 
allow viewing. 

The PR RCC option produces a paper 
record of the account activity with total 
tax, total and balance. Be sure to have 
the printer ready or the computer locks 
up. 

When the E RPP option is selected, the 
computer searches the files for entries 
made in the APP: field. If there is an 
entry, the computer displays it. I am not 
sure what good this feature is, but 
maybe some enterprising user will come 
up with something. The manual gives 
no hints and I found no use for it in my 
business. 

CHARGE TO is where the real day-to- 
day action takes place. First activate a 
file to charge to, then the program 
prompts with a 1. This is a mark-up 
multiplier and if the user presses ENTER 
then 1 is used. Enter 1.5 to mark up 
something 50 percent or 0.8 to mark 
down 20 percent and so on. The next 
item to be entered is whether the item 
is taxable or not. The user is then asked 
to enter a description (up to 29 charac- 
ters long) of the item. The next prompt 
is QURNTITY and a suitable number 
should be entered. Lastly, the unit price 
is entered, the program computes and 
displays the entry and asks if it is 
correct. If the user answers Y, the entry 
is filed. The program then loops back 
to the sales tax prompt. If you want to 
change the multiplier, exit to the main 
menu and reenter the "charge to" op- 
tion. 

The NOTES option allows the user to 
attach notes to a particular account. An 
account must be activated before ac- 
cessing this option. When it is accessed, 
the menu appears as in Figure 3. It 
allows the addition, deletion and print- 
ing of notes. The notes can be edited by 
going directly into the NOTE . DO file. The 
note feature can be used to store impor- 
tant information about a client or 
account that will not fit on the main 
record. 

One problem I found is when the 
program is first loaded and initialed, 
any current NOTE.DO file is destroyed. 
The manual does not warn of this 
danger. If you have important names 
and phone numbers in the NOTE .DO file, 
rename or save it. The manual also 
cautions you not to exceed 230 charac- 
ters per note or risk losing all data the 
next time notes are deleted. I feel a 
danger such as this should be eliminated 
by the program itself. Data loss is 


serious and I do not have time to count 
the characters in my notes. I do appre- 
ciate the warning, but this area could be 
improved. 





The LRBEL option is used to print 
mailing labels for the active account or 
return address labels. The user is 
prompted NUMBER OF LRBELS? and, 
after entering a number, the user 
chooses return address or customer 
labels or exit. When printing custo- 
mer labels, a comment line may be 
added if desired. This comment is not 
available for return address labels. It 
would be nice for seasonal advertising 
slogans and the like. This option does 
not feature any way to align the labels 
before printing so you have to test it on 
live data to see if it prints in the proper 
location. 1 would have liked to print 
labels for all customers, not just the 
active customer account. Maybe this 
feature will be added in future releases. 

DEL ENTRIES functions the same as 
the delete note function except that it 
deletes all entries for the active account. 

DEL FILE is similar to the other delete 
options except that it deletes all notes, 
account entries and the file itself. 

The TIME and TIME2 options are 
similar to each other, but can charge 
different rates. These rates are deter- 
mined when the program is first initial- 
ized. To clock in on a job, first select and 
activate the appropriate file and then 
choose the appropriate time clock. The 
time clock runs when you are in the 
program and even if the computer is 
turned off. The manual says that it does 
not work properly if used through 
midnight. 

The time clocks are one of the best 
features of the program, but I would 
like to see several improvements. I 
would like to know which clock is 
charging what rate by looking at the 
menu and for the rate to print on the 
bill. As it is, the time charged for is 
displayed in hundredths of an hour 


along with the date, a comment and the 
total charge. Also, I would like to know 
if the time clock is “punched in” or not. 
While using it, I forgot several times to 
“punch out,” but if there had been a 
reminder, I might not have forgotten. 
No program can overcome operator 
stupidity, but helps and reminders are 
always welcome. 

The program has a lot going for it. It 
is extremely useful to me in my consult- 
ing business and I can see the program 
paying for itself many times over with 
correct billing of time spent and mate- 
rial used on the job. The program is also 
useful for tracking travel expenses and 
other accounts that are easily over- 
looked during the hectic work day. 
BUSS.BA, in combination with a port- 
able printer, allows the user to prepare 
and present bills for work on the spot, 
which makes for more immediate pay- 
ment and better cash flow. 

If you have a job that involves billing 
for time and/or material, this program 
deserves your attention. It can improve 
work efficiency and save time, which 
can add up to big money. 


(Ronald F. Burkart, Rt. 3 Box 883, Hills- 
borough, NC 27278, $89.95) 


— Tim Birtcher 





Software 1000/1200/3000 





The Factory: 
Problem Solving 
Made Fun and 
Challenging 


The very mention of problem-solving 
makes most students groan, so don’t tell 
them this learning tool has anything to 
do with problem-solving. The Factory 
is too much fun to be pre-judged and 
ruined with negative connotations. 

Making learning fun is a challenge for 
teachers; and dealing with the needs of 
a student who can finish an assignment 
quicker than a wink can be an even 
greater one. The Factory eases both 
challenges. If computers and software 
like The Factory from Sunburst Com- 
munications had been available when I 
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faced these challenges as a teacher 20 
years ago, my job would have been 
much easier and more fun. 

In the hands of a creative teacher 
using the Teachers’ Guide, which comes 
with the program, The Factory has 
much to offer in the classroom. I was 
impressed with how much can be 
learned with no instruction whatsoever. 


reproducing designs created by the 
computer, he chooses from three levels 
of difficulty. The easiest level is simple 
enough for a first or second grader; the 
most difficult, fun for an adult. 

If the product is not a perfect match 
for the one he is duplicting, he is told 
that there is a flaw in the product and 
asked if he would like to try again. If 


“The Factory has much to offer in the classroom. I 
was impressed with how much can be learned with 
no instruction whatsoever.” 


Experimenting with choices from the 
main menu leads a player through a 
series of steps that reveals enough about 
the game to preclude how-to instruc- 
tions. First, the student learns how to 
design machines and organize them in 
an assembly line. Then he sets them in 
motion and waits to see the outcome of 
his product. 

The challenge comes when he tries to 
reproduce a product the computer or 
another player has designed. If he is 


he chooses to try again, the machines 
are cleared and he begins from scratch. 
This was the only area of the program 
I would have changed. In my opinion, 
the program would be improved if a 
choice was given here to either begin 
over or to change individual machines. 
Time and again on the more compli- 
cated designs that involved several 
steps, it would become quickly obvious 
that changing just one of the machines 
would give the desired results. But, 


unfortunately, the only choice is to start 
over and re-create the machines that 
were already correct. 

After finishing with The Factory, the 
player has the option of turning off the 
computer or going to another diskette. 
If another diskette is chosen, the com- 
puter boots up after the new diskette is 
inserted. This is a handy feature for 
young students who are unsure how to 
get a new program started or how to 
turn the computer on or off. For exam- 
ple, the program instructs: “To turn the 
computer off: 1) Remove the diskette 
from the drive and put it in a safe place. 
2) Turn the computer off. The switch is 
located on the right side of the compu- 
ter. 3) Turn off your monitor.” The 
directions are just as clear and direct for 
removing The Factory and getting 
another program started. 

The Factory deservedly received 
recognition from The Council for Ex- 
ceptional Children and the Learning 
Periodicals Group. Designed for grade 
levels four through nine, (using asecond 
grade reading level) and created with an 
interest level for any age group, The 
Factory reaches its objectives in helping 
develop visual discrimination, spatial 





IF YOU CHARGE FOR SERVICES BY THE HOUR OR 


IF YOU CHARGE FOR PARTS, MATERIALS, OR SUPPLIES 
THEN LAWYERS, ACCOUNTANTS, CONSULTANTS, 


Personal Integrated Computers 
18013 SkyPark Circle, Ste. D., Irvine, CA 92714 


COMPARE PERFORMANCE 


TRADESPEOPLE, REPAIRMEN 
— OR ANYONE WHO IS SELF-EMPLOYED — 


THIS ONE IS FOR YOU! 


FEATURES OF THE BUSS.BA PROGRAM: 

THE TIME CLOCKS - Includes two time clocks. Each clock 
will keep the elapsed time on a job; calculate the charge for the 
elapsed time (rates are user setable); and update the proper job 
file with the date, the elapsed time, the charge and an optional 
comment. 


ITEM CHARGES — You can enter a charge to any customer 
account for any service, item or quantity of items. The entries 
may be tagged as taxable or non-taxable, and may include a 
markup or mark-down. The program can automatically 


Disk Drive $599.00 
30 Day Refund Guarantee 


wae 


compute charges as a percentage of some given dollar amount. 


An account can be displayed or printed at any time showing 
current totals for taxable and non-taxable charges, computed 
tax and present balance due. 

NOTE PAD — Keeps notes on individual accounts and will 
display or print the notes for an account as desired. 

LABEL PRINTER — Prints mailing labels from account files. 


OTHER USES — Track (travel) expenses — compile journal 
and/or ledger — print or display reports. 


• No applic. software 

e JOOK storage per disk 
e 29K max file size 

e 10x8 display 

• Not rechargeable 


e Lg. package software 

e 60K storage per disk 

© 348K file size 

e боха display 

e Rechargeable during use 
& powers your computer 

€ OP system: СР/М 

Direct Disk Access 


@OP system: 
Load-Store Only 
Requires 24K or 32K Radio Shack Model 100 portable computer. In- 
cludes cassette program tape and instruction manual. Memory alloca- 
tion depends on specific use. A typical use in a 32K Model 100 might be 
50 account files, 100 bytes per account name and address, 20 entries for 
each account, 17 bytes per entry. 

For more information call 919-967-4604 from 6-9 p.m. E.S.T. 

To order, send check or money order for $89.95 plus $3 

for shipping and handling to: Ronald F. Burkart, Rt. 3, 


Box 883, Hillsborough, N.C. 27278 CERTIFICATION 
М.С. residents add 4.5% sales tax. SEAL 


NOW: VIDEO INTERFACE 
FREE BASIC INTERPRETER 


For catalog, 
1-800-421-6300 literature 1-714-261-0503 
Trademarks: Tandy, Tandy Corp; Cp/M-Digital Research 
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perception and logical thinking. Ве 
forewarned however, it does require 
256К. 

I decided to test the program outside 
the age range for which it was designed. 
I used a gifted second grader and two 
high school students to see if The 
Factory has a level of interest that 
appeals to all age groups. The second 
grader had great fun designing products 
for older kids to reproduce, and the high 
school students enjoyed the challenge. 
(I made the mistake of putting The 
Factory on the computer at the office, 
and I lost my secretary for the day.) 

The Factory is a fun teaching tool for 
any classroom. Из qualities make it 
especially beneficial in working with 
exceptional students. It presents a 


Hardware 100/200/600 


Shut out Eyestrain 
with Portable Light 


Surely I’m not the only Model 100 
user who checks to see if there’s an 
adequate supply of aspirin, along with 
dependable batteries, packed in the lug- 
everywhere bag. Between contact 
lenses, Max Factor and little PoCo’s 
obstreperous LCD display screen, my 
eyes often enjoy taking their revenge on 
the old braincase. Enter Portable Light 
from AMRO Computer Services to 
ease the situation. 

Portable Light is a small, compact, 
battery-operated (two AA’s) light 
source weighing approximately three 
ounces. Portable Light has a six-inch 


Software 100 


Tape is Tape, but 
Now it’s FAST 


Cassette tape is not the ideal choice 
for data storage, but it is cheap, readily 
available and portable. It is also ex- 
tremely slow. Slowest of all is the 
process of transferring documents to 


challenge to the gifted student by way 
of a game that can be used independ- 
ently for moments of creative learning, 
and at the same time, it has equally as 
much to offer the slow learner. Choos- 
ing the level of difficulty is the key. 
The Teachers’ Guide is short, sweet 
and to the point. It provides ideas and 
worksheets to help a teacher get the 
most from the program. I recommend 
The Factory for the classroom. But 
don’t take it to the office if you want 
your secretary to get any work done. 


(Sunburst Communications, Inc., 39 
Washington Ave., Pleasantville, NY 10570; 
800-431-1934, $59, lab of 10 disks $177) 


— Irma S. Canfield 


flexible neck to provide any height or 
angle variation necessary to light up and 
make legible a portable computer 
screen. There is a detachable base/ 
suction cup to mount the light on any 
horizontal surface, such as the briefcase 
in your lap (under the Model 100) while 
your lap is being transported some- 
where by car, plane, etc. Portable Light 
also has a clip for fastening it to surfaces 
other than horizontals such as clip- 
boards or car visors. Its compact and 
versatile structure, ability to ease eye- 
strain and inexpensive price tag give me 
ideas (OK, daydreams) about using it 
on my camping excursions as well as the 
annual tango with my car's points and 
plugs (oh yes, the contacts and Max 
Factor will be there with me too). 


(AMRO Computer Services, Dept. F, P.O. 
Box 1131, Tualatin, OR 97062, 503-692- 
5926, $6.99) 


— Monica Dorth 


and from tape. To remedy the situation, 
various solutions, like the Radio Shack 
Disk-Video interface, have appeared on 
the market. Along with other draw- 
backs, most of these devices are expen- 
sive. So in zips FAST to salvage your 
cassette recorder, your savings account 
and your midnight oil. 

FAST doesn't claim to do much; just 
speed the process of SRVEing and LORD 
ing .DO files to tape. It performs exactly 
as promised by operating roughly three 
times as fast as the 100's ROM routines. 
That may not seem like much unless you 
save and load numerous text files. Then 
it's over a minute for each of my 5K files 
saved. 





Back Issue 
Availability 


Back copies of many issues 
of PCM are still available. 

АП back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment 
to: 


PCM 
The Falsoft Building 
Prospect, KY 40059 
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[О Please send me the following back; 


PRICE 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 
$3.00 


issues: 

(Payment must accompany back issue 

orders.) 
VOLUME 1 

NO.MO. YR. 

1 JULY 783 PREMIER ISSUE 

2 AUG. '83 

3 SEPT. '83 

4 OCT. '83 

5 NOV. '83 

6 DEC. '83 

7 JAN. 784 

8 FEB. 784 

9 MAR. 84 

10 АРН,  '84 LIMITED 

12 JUNE 784 
VOLUME 2 

2 AUG. '84 

3 SEPT. '84 

6 DEC. '84 

7 JAN. 785 

8 FEB. 785 

9 MAR. '85 

10 APR. "85 

11 MAY  '85 

12 JUNE '85 
VOLUME 3 
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SHIPPING & HANDLING 


KY RESIDENTS ADD 596 
TOTAL AMOUNT 
ENCLOSED 


ZIP 
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Installation is a matter of loading two 
BASIC programs from tape. SAVER and 
LORDER now take the place of the TEXT 
program's equivalent functions. The 
brief documentation is more than ade- 
quate for installation and operation. 

Using FAST is almost as easy as 
installing it. Other than a few minor 
quirks, FAST is practically self- 
explanatory FAST gets its speed by 
saving and loading documents as if they 
were BASIC files. Instead of the constant 
start/stop of normal cassette saves, 
FAST saves and loads without any 
pauses. The only drawback is that 
document files currently on tape cannot 
be retrieved with FAST. They must ђе 
stored on tape with the SAVER program 
first. 

The extra speed provided by FAST 
does not mean that you must sacrifice 
reliability. Each time SAVER writes a 
document to tape, it also calculates and 
stores a checksum. When the document 
is loaded from tape, this checksum is 
again computed and compared to the 
value on tape. Any variation is reported 
by FAST to alert you to possible prob- 
lems. 

SAVER automatically stores the last 
text file you were working on. Simply 
select the program from the menu, and 
SAVER will display the first line of the 
text file and the length in bytes. You can 
choose to assign a name, or press ENTER 
to have SAVER use the first six charac- 
ters in the text as the filename. 

SRVER can also back up all .00 files 
on the machine at once. When the 
program prompts for a filename, press- 
ing the period (.) key tells SAVER to 
backup all text files in a single file on 
tape. SRVER assigns a name to the file 
such as *B01/31" where the ‘B’ indicates 
backup and the “01/317 is the month 
and day (e.g., January 31) of the 
backup. 

Loading FAST saves is just as easy. 
Choose the LORDER program from the 
menu and follow the instructions. You 
can load a file by name or press ENTER 
at the prompt to search the tape. 
LORDER will then pause at each file, 
display its length and give you the 
option to load it or continue the search. 
Once you instruct LORDER to load a file, 
it asks for a name. You can supply a 
name or press ENTER and LORDER will 
save it as TAPE . DD. If you specify a file 
that already exists, LORDER will add the 
new file at the end. 

One very useful capability that FAST 
provides is a means of recovering text 


files after a cold start. If you've ever lost 
20K worth of text as a result of an 
accidental cold start, then you know 
why they call it “cold.” Actually, as the 
FAST documentation explains, the text 
isn't gone, it's just inaccessible. If you 
remember not to go to TEXT and begin 
writing, then you can save it all. You 
save it by dumping the entire contents 
of memory to tape. Depending on the 
amount of memory in your machine, 
this will either take two or three succes- 
sive CSAVEM commands, as described in 
the FAST manual. 

Using LORDER, you restore each 
chunk to a text file. Then you begin the 
process of weeding out garbage charac- 
ters and separating the text files. This 
isn't as bad as it sounds; FAST puts the 
black box symbol (GRPH-SHIFT-X) 
between each file. 

By using ТЕХТ% editing facilities, you 
can find each black box symbol, select 
the text and CUT it to the paste buffer. 
If the text is a document that you want, 
you can open a new text file and PASTE 
it there. Otherwise, you continue the 
process with the next section. This same 
procedure works with FAST backup 
files where all .DO files are stored 
together in a single backup. Each is 
separated by the graphic black box. 

FAST does have limits. It only works 
with text files, so unless you save a lot 
of text, FAST isn't for you. SRVER only 
saves the last text file worked on, so to 
save any other file, you must first “visit” 
it as though you were going to edit it and 
then run SAVER. SAVER uses the begin- 
ning characters in the file and not the 
filename as the default document name 
on tape. Changing the program to use 
the current name would be a welcome 
improvement. LORDER offers a very nice 
option to search the tape; unfortu- 
nately, it only loads one file for each 
search. Once you load a file, LORDER 
returns to the Model 100's menu. It 
would be a real plus to load several files 
without restarting the program. 

FAST delivers as promised; nothing 
more and nothing less. FAST won't 
take the place of a disk drive, but it will 
greatly improve cassette storage at a 
fraction of the cost. So if you're not 
ready to abandon tape or can't afford 
to, now you can have your tape and beat 
it too. 


(Minsof, Inc., P.O. Box 1153, Minneapolis, 
MN 55440, supplied on cassette $19.95) 


— Dennis Kirley 
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Software 1000/1200/3000 


Forecasting with 
Fourcast 


Fourcast is a business forecasting 
program for MS-DOS microcompu- 
ters. Based upon the principles of time 
series analysis and using a method 
known as a Moving Window-Spectral 
(MWS), the program is designed to 
extract patterns or cycles from input 
data and to predict, via statistical tables 
and graphs, the most probable future 
trend of the data. 

The program is controlled through 
four menus: Main Menu, File Opera- 
tions Menu, Forecasting Menu and 
Report Menu. The main menu lists 15 
options: 


Print final report 
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The first option, H, evokes an on- 
screen synopsis of input modes, varia- 
bles and data structure of the program. 
These are called by the next four op- 
tions of the main menu: D, V, C and U. 

The D option allows you to give a 
name to the analytical run. The name 
is used as a title for printed reports and 
has no effect on the data or the compu- 
tations. 

The V option is used to specify which 
data files are to be used in the session. 
If you don't enter a name, the program 
defaults to the last file run. Of course, 


a new set of data requires a new list of 
variables. As an example, Fourcast 
comes with a sample case study (the 
description code), which contains three 
data files: SALES---.emc, PRICE--- 
„етс and INCOME--.emc. These files 
contain all the information necessary to 
examine and test the features and func- 
tions of the program. If only one set of 
data is to be entered, then only one 
variable is identified (univariant). In the 
example three files were created because 
there were three different sets of infor- 
mation (multivariant). 

The C option is self-explanatory. It is 
used to create a new data file or files for 
analysis. When chosen, the program 
goes through the sequence to create a 
new data file. You first enter a filename, 
under which the data will be stored. 
Second, a description is requested. The 
description has no effect on the calcu- 
lations. Next, the program asks for the 
total number of data points to be en- 
tered. The maximum is 100, which is a 
rather small amount for an in-depth 
statistical study. The last entry is the 
length, in number of data points, of the 
moving window, or the portion of the 
data that is to be used for the compu- 


Help explanation of data input modes: 
Specify run description code | 
Specify list of variables in this 1 run 
Enter the create mode | 
Enter the update mode 
List input data 
Plot input data ` 


‘Perform file operations | iii 

Data conversion to fourcast files | 

Network intercomputer communications ` 

Calculate system parameters | i 

Plot system parameters ` i 
| Forecast with current system Parameters | 


 Terminate this session 





tations and predictions. The manual 
suggests, *Best results are most likely 
when the length of the window corre- 
sponds to the number of time periods 
in the dominant cyclical component of 
the time series." This suggestion as- 
sumes that the user has some knowledge 
of the expected cycle of the information. 
And here is where a problem arises. 

The first sentence of the manual 
states, “Fourcast is very easy to use and 
excellent results can be obtained by 
anyone." From the standpoint of phys- 
ically operating the program it is easy 
to use, but in order to choose the length 
of the moving window, the user must 
have some knowledge of numerical 
analysis. The program's algorithm is 
designed based on numerical analysis. If 
you do not have this knowledge, you 
will not know what “dominant cycle" is 
appropriate for the data being entered. 
The length of the moving window is 
critical in obtaining the most statisti- 
cally significant results and a mere guess 
is inappropriate. Therefore, a contra- 
diction seems to exist between what is 
required of the user and what is claimed 
in the manual's introduction. Although 
the manual is not intended to be a 
mathematical primer, the importance of 
this topic is given but a few brief para- 
graphs. 

Option U of the main menu is for 
updating an existing data file. Since the 
data is always entered with the date, it 
is easy to find the datum for edition or 
deletion. New data may also be inserted 
anywhere within the file. The program 
automatically puts the new data in its 
proper position. 

The L and P options list and plot the 
input data and give you the opportunity 
to view a table or graph of the entered 
information and to check its accuracy. 

The second menu of Fourcast is 
called when the 0 option (File Opera- 
tions) is selected. The following selec- 
tions are displayed: 


Multiply ш contents of two files. 
“Subtract the contents of one file from the contents of another 
_ Divide the contents of one file by the contents of another 
| Take reciprocals of the contents of a Ше | 
| Take natural logarithms (base e) of the contents of a file 
Take logarithms (base 10) of the contents of a file 


| Take inverse natural logarithms of the contents of a file 
1110 Take inverse logarithms of the contents of a file 
XC . Multiply the contents of a file by а constant 
i 55 Add a constant to the contents of a file 
MM file ранах & transformation mode 
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These operations are used with the 
graphs printed from the R option of the 
main menu which is Print Final 
Report. The file operation functions 
are used as a means of rescaling the 
input data so that the forecast data can 
all be plotted within the limits of the Y- 
axis screen dimension. Any file opera- 
tions, however, must be made on i 


input data before the forecasting com- 
putations are begun. 

Following the 0 option of the main 
menu is the X option, (Data Conversion 
to Fourcast files). The manual makes no 
mention of this option. When this 
option was selected the following mes- 
sage was displayed on the screen: 


DATA CONVERSION то FDURCRST F FILE 


Data conversion, routine must be requested fram ЕМС. 





Press ENTER to continue, followed 
the message, and when pressed the main 
menu reappeared on the screen. There- 
fore, the function of this option is 
unknown. 

The program does not limit data 
entry to the keyboard. Through the N 
option, (Network Intercomputer Com- 
munications) the program accepts data 
from another computer through a 
modem. This is a handy feature, partic- 
ularly if you want to download informa- 
tion from a mainframe computer data- 
base. The downloading procedure is 
simple. The program establishes the 
communications link and, through the 
use of the CTRL S key combination as 


an on/ off toggle switch, sintata the 
incoming data іп а Ше named DOWN- 
LOAD. In order for this file to be used 
by the program, it is necessary to re- 
name it through MS-DOS (the RENAME 
command) and then, using a word 
processor, edit it until it matches Four- 
cast's data format. This conversion 
procedure is rather involved compared 
to the simplicity of the downloading 
operation. 

After all the data is entered, the S 
option is used to begin the program's 
computations. After the prompt is 
answered, the program loads the data 
and displays it in a table, allowing you 
to view the information. After another 


continuation prompt, the program 
performs a time/frequency transforma- 
tion and a parameter estimation mode. 
It then displays, in a tabular format, the 
statistical analysis of variance. It in- 
cludes the following measures for each 
frequency computed: the total sum of 
squares (SST), the sum of squared 
errors (SSE), the Rsquared statistic 
(Rsqrd), the mean square for the model 
(MSM), the mean square error (MSE), 
and the F value, which is calculated 
from the MSM/MSE ratio and indi- 
cates the “goodness” of the statistical fit 
of the data to the computed model. 
Following the variance table is the 
parameter estimates table. This table 
displays four more statistical measures 
relating to the frequency of the data: the 
magnitude value (either positive or 
negative) is the amplitude change of the 
cyclic components of the data (as based 
on sinusoidal waves); the shift value is 
a measure of the phase shift of the cycle, 
or its starting point in the data; the 5 
number measures the standard error of 
estimate in the companion parameters; 
and t, the last value, tests the signifi- 
cance of the parameter being estimated. 
Next, the program analyzes residuals 
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We'rethe people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
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Now you have a friend in the software business. 
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computation. А residual is another 
statistical tool that measures how the 
fitted data differ from the actual data. 
After the computation, a table is dis- 
played showing the date, actual datum, 
fitted datum, the residual and the per- 
cent error of the residual to the actual 
data. The critical information is the 
percent error values. If small, then the 
fitted data is in good agreement with the 
actual data. Otherwise, the fit is not so 
good. Nevertheless, a good fit does not 
guarantee the validity of the forecast. 


After the residual table, the residuals 
are plotted on the screen in a simple 
graph. The values of the residuals are 
plotted against time with asterisks 
denoting the plot positions. According 
to the manual, there should be no 
discernible pattern in the asterisks if the 
analysis is valid. If a pattern emerges, 
then a relevant variable in the data is 
absent and the data must be re- 
examined, on a trial and error basis, 
using some other procedure than is 
available from Fourcast. 

The last function of the program 
shows a summary Statistical table. 
Along with the SST, SSE, Езага, 
MSM, MSE and F measures, a DW 
statistic is printed. This is the Durbin 
Watson statistic and it is used to mea- 
sure the durability of the unsystematic 
residual variation assumption under a 
test of significance. The manual gives a 
brief explanation of how to use the DW 
value. 

With all of its functions, the S option 
obviously represents the computational 


ес очык лт 


The Automatic forecast option, Р, 
computes the file data for forecasting. 
After the calculations are completed, 
the program returns to the forecasting 
menu. 

Options I and 0 work in conjunction 
with each other. In order for the inter- 
active forecasting, option I, to be used, 
it is necessary to first specify the over- 
ride in time periods using option 0. Then 
the interactive forecasting function 
recalculates the data and returns to the 


heart of the program. Just as obvious 
is that the interpretation of this statis- 
tical information is not a simple feat. If 
you are not an expert, then much of the 
information will have little meaning for 
you. Certainly, the claims that anyone 
can use the program is stretching the 
truth, for without a working knowledge 
of statistics, one would be left on a 
mental precipice. 

The next option of the main menu, B, 
plots the system frequency parameters 
and the impulse response. The fre- 
quency graphs that are plotted are 
described by the manual as *. . .useful 
for observing the way in which the 
parameters change over different fre- 
quencies. . .” The graphs аге not clearly 
explained in the manual and the infor- 
mation they present is open to interpre- 
tation. As the manual states, *Note that 
time series in the sample case study are 
very short in length. Not very much 
significance can be placed on the rela- 
tionships portrayed." 

Following the frequency graphs are 
the impulse response plots. An impulse 
is an event of short duration that may 
have a long term impact on a trend. An 
analogy would be the 1974 Arab oil 
embargo and its long term effect on 
gasoliné prices. The impulse response 
graphs are, therefore, only theoretical 
representations. Here again, these 
graphs are not easily interpreted. 

The most important option of the 
main menu, indeed the main objective 
of the program, is F option (Forecast 
with Current System Parameters). The 
third menu has the following options: 


Tabulate current. trial. forecast 
Plot current trial forecast ^. 

| Change number of forecast: ШЕШ | | ШЕНИН 
пп Save: current forecast and Rus the forecasting mod ЧИН 














тепи. 

After selecting option Т (Tabulate 
current trial forecast) a table is dis- 
played on the screen listing the datum 
number, datum date and the calculated 
forecast value. The table should indi- 
cate any major trends in the data, but 
a graph is easier to understand and that 
is the purpose of the next menu selec- 
tion. 

Option P plots the forecast data 
against future time on a graph. In the 


sample case study, sales, price and 
income data are each plotted twenty 
forecast periods into the future (twenty 
years in this particular case). This graph 
is the main objective of Fourcast and 
any trends are easily seen in this repre- 
sentation. 

By choosing option C, you can alter 
the number of forecast periods. The 
allowable range is from one to 65. If the 
periods are changed, the forecast data 
is recomputed. 

When you're finished with the fore- 
casting menu, the Q option saves all the 
data previously calculated and returns 
to the main menu. 

The next to last option of the main 
menu is R (Print Final Report). This 
option calls the fourth and last control 
menu of the program: 


Forecast assessment 
Plot forecast 
Tabulate forecast 
Quit the report mode 


4) = о D 


When option A (Forecast assessment) 
is selected, the program prints a table 
containing the datum number, the 
datum date, the actual datum value, the 
forecast value and two statistical mea- 
sures: XERROR and MAPE. The XERROR 
value is simply the percentage difference 
between the forecast value and the 
actual value, while the МАРЕ (Mean 
Absolute Percentage Error) is the aver- 
age of the cumulative forecast error for 
a forecast time period. 

After the table is displayed, the pro- 
gram displays a graph on which both 
the actual and forecast values are plot- 
ted for each forecast period. The graph 
gives a good idea of the relationship 
between the two. 

The P option allows viewing the 
forecast data via an extended graph. If 
your computer is equipped for high 
resolution graphics, the program will 
plot the graph in that mode. Otherwise, 
а full-screen ASCII graph is shown. The 
graph, or graphs in the case of multi- 
variables, provides significant informa- 
tion about the future behavior of the 
data. 

When the T option is selected, the 
program prints a forecast table showing 
the upi (upper limit of 95 percent pre- 
diction interval) value, the computed 
forecast value and the Ірі (lower limit of 
95 percent prediction interval) value for 
each forecast time period, including the 
forecast date. This table provides crit- 
ical information about the statistical 
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validity of the computed forecast 
values. 

The last option, Q, takes you back to 
the main menu. At the main menu, the 
T option exits the program and returns 
you to MS-DOS. 

Fourcast's main and most powerful 
feature is the Forecasting Mode, as 
summoned by choosing the F option 
from the main menu. Its operation and 
resulting analyses were obtained 
through the sample case study provided 
on the program's diskette. However, 
there is one situation which must be 
mentioned: The forecasting mode does 
not work with any data other than the 
sample case study without first connect- 
ing to a special communications host 
system maintained by Engineering 
Management Consultants, the pro- 
gram's developers. This communica- 
tions system, called the Electronic 
Fourcast Service, is accessed via a 
modem. What the service does is unlock 
the Forecasting Mode of the program so 
you can run your own data. Once the 
forecasting menu is displayed, you can 
disconnect from the service. Each time 
you run the program and wish to use the 
forecasting functions, you must recon- 


nect to the service to unlock the menu. 

In order to use this service, you must 
fill out the application form in the 
manual and mail it in to obtain an 
identification code and password. 
Without them you cannot access the 
service and, therefore cannot use the 
Forecasting Mode of Fourcast. You 
must pay for the access time, although 
the first hour is free. 

This unlocking procedure is a unique 
approach to program security, if it is 
indeed that. Regardless of why this 
particular technique was chosen, it can 
run into unforeseen costs. If you don't 
have a modem or an RS-232 board, 
then the program is of limited use and 
communications equipment must be 
purchased. On the other hand, you may 
have the necessary hardware but do not 
wish to pay a monthly connect fee. The 
initial cost of the program may be 
minuscule in comparison to its operat- 
ing costs — a serious point to consider. 

Another point, perhaps more impor- 
tant, is the continued availability of the 
electronic service. Without the service, 
the program's forecasting function 
cannot be accessed and is valueless. The 
unlocking technique is a drastic step for 


the sake of program protection, and is, 
in my opinion, a serious drawback. 

Although the manual is a brief 69 
pages in length, it covers the important 
aspects of the program's operation. 
Each menu is presented and discussed, 
including tables and graphs of the 
sample case study data. The mathemat- 
ical relationships of the various statis- 
tical measures are defined and ex- 
plained, although the manual is not 
intended to be a text on statistical 
analysis. It does provide you with a 
reasonable basis for further study. Five 
reference books are listed for that 
purpose. The best approach to under- 
standing Fourcast is to work through 
the manual while running the program. 

If you are in the market for a sophis- 
ticated business forecasting program, 
then you should consider Fourcast. 
Remember, it is a tool that requires a 
basic knowledge of statistical analysis in 
order to take full advantage of its 
potential. 


(Engineering Management Consultants, 
P.O. Box 312, Fairfax, VA 22030, $30) 


— Ralph Rideout 





Interface your computer to the outside world 
Learn how with the buffered 
BG-Board Interface System 


EXPAND THE TANDY 20009 


TO 
896K 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 
ж x New Products Available Soon ж x 
(Send for catalog) 


$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 


for ordering (509) 627-5291 
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RAMdisk is а Random-Access-Memory based disk 


It brings the necessary buses out to a breadboard on 
which you can construct circuits needed to acquire 
and send signals to monitor and control other devices. 
Accompanying texts and hands-on experiments guide 
you in learning and applying the fundamentals of 
interfacing. Excellent for schools and individuals. 
The BG-Board can be used interchangeably with many 
popular computers: Tandy 1000, 2000, TRS-80 I, 
Ill, 4; Apple П/ + /е; Commodore 64; VIC-20; and 
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Tandy Corp. Apple П/ + /е; Apple Computer, Inc. 
Commodore 64, VIC-20; Commodore Business 
Machines, Inc. MS-DOS; Microsoft, Inc. 
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| ІШЕ New Products 


The following products recently have been received”. 
| | by PCM, examined by our magazine staff and ^ 
approved for the PCM Seal of Certification; your -  . 
assurance that we have seen the product and have .. 
ascertained that is what it purports to be. This month. 









BDL.Estate, helps you organ- 
ize your estate — what you 
own, what you owe, where you 
work, military service, where 
everything is and who's impor- 
tant. Requires Tandy 1000, 
1200 or 3000. BLD Homeware, 
2509 North Campbell Avenue, 
4328, Tucson, AZ 85719, (602) 
557-1435, $69.95. 


DoubleDOS, allows you to 
concurrently run two applica- 
tions in memory and switch 
between the running programs. 
Requires Tandy 1000, 1200 or 
3000. Soft Logic Solutions, 530 
Chestnut Street Manchester, 
NH 03101, $49.95 plus $5 8/Н 


FAST, greatly decreases the 
time needed to save and load 
text files to and from tape. 
Requires Model 100 and 
cassette recorder. Minsof, Inc., 
P.O. Box 1153, Minneapolis, 
MN 55440, cassette $19.95. 





Media Master, a disk-to-disk 
format conversion program 
that provides file compatibility 
between over 70 different CP/ 
M and MS-DOS computers. 
Requires Tandy 1000, 1200 or 
3000. Intersecting Concepts, 
4573  Heatherglen Court, 
Moorpark, CA, (805)529-5073, 
$39.95. 


Mini Magic Card, memory 
card that allows you to expand 
memory up to 576K with one, 
short card. Requires Tandy 
1200 or 3000. Everex Systems, 
Inc., 47777 Warm Springs 
Boulevard, Fremont, CA 
94539. 


PC-Key Draw, a graphics de- 
sign program for CAD and 
graphics design applications. 
Requires Tandy 1000, 1200 or 
3000 with graphics option. 



























By awarding a Seal, the magazine certifies the 
program does exist, but this does not constitute any 
guarantee of satisfaction. As soon as possible, these 

hardware or software items will be forwarded to 
PCM's reviewers for evaluation. 


the Sea! of Certification has been issued to: 


Columbia, MD 21045-0595, 
$100. 


Resident, allows you to make 
almost any MS-DOS applica- 
tion program into a memory- 
resident program that may be 
called up at any time with a 
single keystroke while other 
applications are running. Re- 
quires Tandy 1000, 1200 or 
3000. Information Software, 
Inc., 2639 Walnut Hill Lane 
#135, Dallas, TX 95229, (214) 
353-2966, $89.95 plus $5 S/H. 


What’sBest!, automatically 
generates best-possible solu- 
tions to spreadsheet models. 
Requires Tandy 1000, 1200 or 
3000 and Lotus Symphony or 
1-2-3. 256K required for Com- 
mercial Version, 640K for Pro- 
fessional Version. General Op- 
timization, Inc., 2251 North 
Geneva Terrace Chicago, IL 
60614, (312) 248-7300, Com- 
mercial: $695, Professional: 
5995. 


Video Title Editor, allows add 
title and credit screens and 
various displays to home- 
recorded videotapes. Requires 
Tandy 1000, 1200 or 3000, color 
graphics option and VCR. Vi- 
deoware, 1977 W. Twelve Mile 
Road, Suite 180, Southfield, 
MI 48076, (313) 626-7208, 
$29.95. 


Zuckerboard Expansion Mem- 
ory Board, adds 512K to a 
Tandy 1000 on a single board, 
bringing total system memory 
to the maximum 640K. Socket 
for optional clock/calendar. 
Requires Tandy 1000. Ad- 
vanced Transducer Devices, 
Inc., 1287 Lawrence Station 
Road, Sunnyvale, CA 94089, 
(408) 734-4631, $149. 





OEDWARE, P.O. Box 595, 





for PC/MS-DOS™ 


Fixed/Floppy Disk Tools for Tandy 1000, 1200, 


2000, IBM PC", XT", AT", Compaq, AT&T 6300, 
Leading Edge, and many other PC compatibles. 


Data file recovery, disk exploring, 
zapping, and MUCH more! 


Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL *.* in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. /t's really great! 


With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 


In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, make them visible/invisible, etc.), ASCII string search, 
copying sectors to a file, diagnostic sector checking, mapping of 
the FAT table of a file or an entire drive, visual graphics pertaining to 
your system, and full directory and sub-directory editing without 
endless menu-hopping - all in one program. Want to change the 
name of your sub-directrory without copying all your files to a new 
one? Just retype a new name over the old one with SU/PC! The 
sector display mode displays all 512 bytes on-screen at one time 
and allows you to fully explore your disks. SEARCH and CHANGE 
are nice here too! Will find any occurance of a byte or string on your 
disk. Compatible with DOS versions 2.0 - 3.1 on most systems. 
Some computers may require the use of PC-DOS. Color, 
composite, or monochrome video are supported. A great tool for 
fixed disk users as well as floppy. Also compatible with IOMEGA's 
Bernoulli Box™ storage device (distributed by Tandy as the 
Cartrdge Disk System). SU/PC is a totally new program that fills the 
gaps that PC users have most need of and have asked us for. It's 
aimed at the beginner, the "office user", hobbiests, students of the 
PC, or programmers alike. Unprotected media. 


Super Utility/PC 
ony $89.95 


See Review in March '86 PCM 


-POWeE3XOrc- 


17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 + 214/733-4475 


Ordering, questions, and support always available on the PowerSoft Sig! 
Туре GO PCS-56 from any prompt on CompuServe™! 


Available worldwide through Radio Shack?" 
Express-Order - Cat € 90-0407 


Prepaid or charge card orders (only) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping available at extra charge. Visa: MasterCard 
accepted. Canada, please add $3; airmail, Other countries add $15 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales lax! 
Requirements: ІВМ PC or compatible running PC/MS-DOS 2.х-3.х, minimum of 128K 
memory, and at least one disk drive. PC-DOS may be required for use. t 

IBM, РС, XT, АТ are registered trademarks of International Business Machines Corp. 
MS™ is а regstered tm of Microsoft. Radio Shack™ is a registered tm of Tandy Corp. 
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Bi. ту ПТТ 
| BAR CODED LISTINGS 


Te, EI ИШИ HERI | ШІШ | | || | || | | ІШ ШШШ | || | ll 


Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 


BA READ 2.1 


1000 ' *** Initialize *** 
1010 ON ERROR GOTO 1040 
1020 CLEAR 199:MAXFILES-2 
1030 GOTO 1050 


pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. A "blip-bloop" sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 








| 


| 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LOAD” TEST 
.00” (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC'S com- 
pressed format (.BA exten- 
sion), you'd type 58УЕ”ТЕ5Т” 
(if the program were named 
TEST). You may then kill the 
-DO file with KILL “ТЕ5Т.007. 


1140 ER$(4)="Code not PCM2/39 format!" 
1150 ER$(5)="Command not applicable here 


1160 ERS(6)-"You cannot skip this line!" 
1170 ERS$(7)-2"Selected resume file not in 


computer!" 


1180 ' *** Read Reserved Words List *** 


1040 IF ERR=5 THEN RESUME NEXT 
1050 ON ERROR GOTO 0 
1060 RUNM "B30F9" 


1070 OPEN "WAND:" FOR INPUT AS #1 

1989 0С%--1 

1090 PC$-"0123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
1100 DIM ВМ5(36) 

1110 ERS(1)-"You must scan line 1 first! 


1120 ER$(2)="You've SKIPPED a line!" 
1130 ER$(3)="You've ALREADY SCANNED this 
line!" 
124 
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1192 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL,D 
EFINT,DEFNG,DEFSTR, ELSE, GOSUB, GOTO 

1200 DATA INKEYS,INPUT,INSTR(,LCOPY,LEFT 
S$C,LINE(,LOADM,LPRINT,USING,MAXFILES 
1210 DATA MID$(,NEXT, PEEK, POKE, POWER, PRE 
SET(, PRINT , READ , RESTORE, RETURN , RIGHTS ( 
1220 DATA SOUND, SPACES( ,STRINGS( , THEN 
1230 FOR I$-1 TO 36:READ RWS(1%):NEXT I$ 
1242 ' *** Procedure Begins Here *** 
1250 CLS: PRINT@44,"PCM Bar Code Program 
Reader v2.1" 

1260 LINE(28,4)-(219,18),1,B:LINE(22,6)- 
(217,16),1,B 








1270 NNS=1 
1280 GOSUB 1660:ІЕ ER%>Q THEN GOSUB 1639 
‘GOTO 1280 

1299 IF 11%-0 AND INSTR("YN", IL)» THEN 
ЕВ%-5:С05/8 1620:GOTO 1280 


1300 IF 11%-0 THEN ON INSTR("ALSR", 14) 


GOTO. 1820,1890,1980,2050 

1319 IF LL$-1295 THEN 1350 

1320 IF LL$«-NNs AND NN&-1 THEN ER$-1:GO 
SUB 1629:GOTO 1280 

1339 IF LL%<NN% THEN ER$-3:GOSUB 1620:60 
TO 1280 | 
1349 IF LL$&2NN$ AND NN@>1 THEN ЕВ%-2:005 
UB 1620:GOTO 1280 

1359 ILS-RIGHT$(IL$,19) 

1360 IF LL&-1 AND ММ%>0 THEN GOSUB 1780 
1379 CL$-CL$1L$ 

1389 FOR 1%-1 TO LEN(CL$) 

1390 |  CHS-MIDS$(CL$,I$,1) 

1499 ТЕ CH$-"s" THEN GOSUB 1510:ТЕ NL 
& THEN 1470 ELSE GOTO 1440 

1419 . ТЕ CHS="/" THEN GOSUB 1559:1F NL 
$ THEN 1470 ELSE GOTO 1449 


1420. ТЕ CH$-"." THEN UC&-NOT(UC$):GOT 
0.1459 
1430 IF CH$=>"A" AND CH$«-"Z" AND NOT 


(UCS) THEN CH$-CHR$(ASC(CHS$) +32) 


1449  XXS-XX$4CH$:IF RIGHTS(XX$,1)-CHR 
$(13) THEN PRINT42,XX$::XX$-'"" :UC$--1 
1450 NEXT 1% 

1469 CL$-"" 


1470 PRINTQ20Q , SPACES (80); 

1480 IF 11%<>1295 THEN NN$-LL$41:GOTO 12 
82 

1499 ' жж Done ЖҰЖ 

1500 CLOSE:CALL 61807!:CLEAR 500 ,HIMEM:M 
ENU 

1510 ' *** Decode Reserved Word *** 

1520 NL$-9:IF. I$2LEN(CL$)-1 FARN NLS=- 1: 
CLS="%"; GOTO 1540 

1530 I$-IS$-1:CHS-RWS(INSTR(PCS$,MIDS(OLS, 
1%,1))) 

1540 RETURN 

1550 ' *** Decode Hex and Control Charac 
ters *** 

1560 NL$-0:IF I%$>LEN(CL$)-1 THEN NL$--1: 
OL$-"/":GOTO 1619 

1570 1%=1%+1:ТЕ INSTR('"/$.",MIDS(CLS$; 1%, 

1))>@ THEN СН5-МІр5(С1.5,1%,1):60Т0 1619 

1580 ІК I%s>LEN(GLS)-1 THEN NL£--1:CLS-RI 
GHT$(CL$,2):GOTO 1619 

1590 HX$=MID$ (CLS, 1%, 2): CHS=CHRS\( (INSTR( 
"9123456789ABCDEF" ,1ЕЕТ9(НХ9,1))-1)%16%1 
М5ТЕ("0123456789АВСрЕЕ";КІСНТ5(НХ5,1))-1 
) 

1600 1%=1%+1 

1619 RETURN 

1620 ' жж Error Codes www 

1630 SOUND 5990,10:SOUND 8009,10: SOUND 5 


000,19 
1640 PRINTQ229- S*LEN(ERS (ERA) , ERS (ERS) 


1650 RETURN | | 

1669 ' *** Get Code Line *** 

1670 PRINTQ173,""; :PRINT USING "Scan lin 
e ###" ;NN% 

1680 IF NN%=-1 THEN PRINT@173, "Scan any 
line":GOTO 1700 

1690 SOUND 500,5 

1790 INPUT#1,IL$:ER%=g 

1710 FOR 1%-1 TO LEN(IL$) 

1720 ТЕ МІр5(11,5,1%,1)-"!" THEN Wiper 
,I*, у"; n 

1739 NEXT 1% 

1740 IF ,ЕМ(І1,6)<>1 AND LEN(IL$)«»21 THE 
N ER$=4:RETURN 

1759 IF LEN(IL$)-1 THEN LL$-0:RETURN 

1769 LL$-LEFT$(IL$,2):LL$-(INSTR("912345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" , LEFT$ (LL 
$,1))-1)*36«-INSTR("2123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ" , RIGHTS (LLS$ ,1)) +1 

1770 RETURN 

1780 ' *** Open Program File *** 

1790 PNS$-LEFT$(IL$,6):ILS$-RIGHTS(ILS,LEN 

(11.6) -6) | 

1800 OPEN PN$ FOR OUTPUT AS #2 

1810 RETURN 

1820 ' ЖҰЖ Abort *** 
1830 BEEP:BEEP:BEEP 

1849 PRINT@299, "ABORT! 
1850 -INPUT#1L, ANS 

1860 IF INSTR("YN",AN$)-0 THEN BEEP: PRIN 

T@251, "Scan "YES" or 'NO'":GOTO 1850 
1870 PRINT@299, SPACES (89) ; 

1889 IF АМ5-"Ү" THEN CLOSE; KILL PNG +", DO 
":GOTO 1499 ELSE GOTO, 1280 

1890 ' *** Skip Line *** 

1900 IF NN$-1 THEN ER$-6:GOSUB mat COTO: 
1280 

1910 ВЕЕР:ВЕЕР;ВЕЕР 
1920 РЕІМТ(8210,"5КІР! 
1930 INPUT#1, ANS 
1940 ТЕ INSTR("YN",ANS$)-0 THEN BEEP: PRIN 
T@251) "Sean 'YES' or 'NO''":GOTO 1930 
1950 PRINT@299.,SPACES: (89) ; 

1969 IF ANS="Y" THEN NN¢=NN$+1 

1979 GOTO 1289 

1980 ' *** Stop & Save ж 

1999 BEEP:BEEP:BEEP 2 

2000 PRINTQ297,"STOP & SAVE! Are you sur 
e?" . 

2010 INPUT#1,AN$ 

2020 IF INSTR("YN",AN$)=@ THEN BEEP:PRIN . 
TQ251,"Scan 'YES' or 'NO'":GOTO 2019 
2030 PRINTQ209 , SPACES (89) ; | 

2040 IF ANS-"Y" THEN 1490 ELSE GOTO 1289 
2059 ' *** Resume www 

2060 IF ММ%<>1 THEN ЕВ%-5: GOSUB 1620:GOT: 


Are you sure?"; 


Are you sure?" 
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0 1289 2120 ON ERROR СОТО 2140 

2070 PRINIQ254,"Resume Mode"; 2139 OPEN PN$ FOR INPUT AS #2:GOTO 2170 
2080 NN$-1:GOSUB 1669 2140 RESUME 2150 

2150 CLOSE #2 

2160 ЕВ%-7:С050В 1629:GOTO 1270 

2170 CLOSE #2:ОРЕМ PN$ FOR APPEND AS #2 
2189 NN$--1:GOTO 1280 


2090 IF LL%=Ø THEN ER$-5 ELSE IF LL¢<>1 
THEN ЕВ%-1 

2100 IF ЕВ%>0 THEN GOSUB 1629:GOTO 2060 
2110 PN$-MIDS$(IL$,3,6) 


LIST1.BCR (FROM PAGE 56) 


г. lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
2 | ШШШ ЇЇ 
з lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIIIIIIIII 
4 ШЇЇ A ШШ! 
5 (ШИШИП 
IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
г, O D L A O DN 
8iIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


LIST2.BCR (FROM PAGE 56) 


ea ШШШ! 
2 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
3 (ЇШЇП 
а, NOOO ANON ШЇЇ! 
SIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
N I T LI ШШШ 
a T HAM 
в ШИИТИ 
{AMAA T L OO 
12 ||lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIII 
то, ЇЇ ШЇЇ 
12 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
13 ОШ 


TIMER.BCR (FROM PAGE 31) 


1 (ППТ 
2 |! ШШШ 
3 | ШШШ (ШЇЇ 
4 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
SIlIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
в ПИШЕТ ТІ 
А ОДО А АИ 
в (ИИ ИПИИИИИЛИИИ 
a ЇШЇП 
то TONDU OOU NO ONO 
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11 AMARI AAA M 
12 {ЇЇ ЇЇ ЇШЇП (ШЇЇ 
13 | ПП ШЇЇ! 
14 | ШЇЇ E ЇЇ ЇЇ 
15 lIIIIIIIII:IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
16 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
17 (ІШПЕ 
18 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
19 UBINAM 
А А ОВАА ДА О 
21 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ea I ШШШ! 
23 AIN D LEUR AM 
24MM 
a T TT EA И 
26 | ШИШИШИ! 


2? IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


гв N NOL T A e aN D 
29 ||! ШШШ 
30 |! ШЇЇ ШШШ 
31 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIII 
eea N U E A L L 
33 |! ЇЙЇ! 
34 | ШЇЇ ШЇЇ! 
35 ДАДА AN 
36 | ЇЇ ШШШ! 
з? {ШШШ ШШ! 
38 |ТІЛ 
39 |І ИШТИ ИИТИИ ИИТИИ 
40 | ЇЇ 000 I IE a T L 
41 ЇЇ ЇШЇП! 
era ШЇЇ ШШШ (ШШШ! 
аз IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
44 | ШИПИН 
«s (ІП ИШИП 
4 | ППТ 
eza I ЇШЇП 
ав | T r A ШИШ! 
аз ИІ ТИИИП 





52 | И А АДА 
51 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
52 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
53 (ШШШ 
54 (ППТ 
55 ИИ 
56 (ППТ 
5? ИП 
I ШИШ 
59 || 
ве IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
бі [ANNAN MTA 
62 ПИТТ 
= NA M L ЇЇ! 
ва (ИП 
65 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ве MOUTON eE E N DI 
67 OUI AAO a e a AN UAM M 
вв ЇЇ ШИШ 
MINION EAM 
22 (ПИТТ 


STIMER.BCR (FROM РАСЕ 31) 


n T IAD L MAI AN N 
2 | AOA TA 
3 JEANNE 
4 ( OON AAA 
с ТИИИП 
в lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
?IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
в III:I!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIN 
(AMNION A ЇЇ ШЇЇ! 
1@ | А А ДА 
11 А АГ 
1:2. | АДАД 
із | ППТ 
14 (ЇШЇП 
15 ANNA UA A M 
16 |! ШШШ ШЇЇ 
17 lllIII:IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
CE AL LUI M 
19 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 


22 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ 
сл, A D A a 
22 | О ДОО АТА 
2з | О 00000 
a I LN t O U A 
25 | (ШШШ 
26 | 
27 ШИПИН 
28 |IIIIIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
29 |! 
зо ANOANO MUNA I M 
31 QNIN UNA AM 
зг, | ППТ 
33 ШШШ ШШШ 
34 | N L ШШШ ШИП 
35 ЇЇ ШЇЇ ШШШ 
36 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
з? |ІІІ 
38 | ШШШ ШЇЇ 
39 |ІІІ ИТТИ 
o. О О А А M 
41 (ПИТТ 
42 (ППТ 
аз lllIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
44 MOON 
45 MANTIENE 
46 T AENEAM 
eza ЇШЇП ЇЇ 
48 MINN ODON OAO O R O O 
23 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
52 ШШШ 
51 (ПШПШ 
52 (ПП 
53 ІП 
54 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
55 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
56 | ПП АИ А 
5? ПИТТ 
58 U D N L e t ALN 
L D a n N AA aL 
ве llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
61 | a T IUE LM 
62 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 





Abort Skip Line Stop & Save 





ІШІ ҮШІ ШШ 


Resume Yes No 
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өз | (ШШШ 
84 | ШШШ ШИШИШИ! 
в5 (ПИТТ 
56 D ШШШ! 
в? ЇШЇП А LU 
вв | (ШШШ ШЇЇ ЇЇ 
69 | ШШШ 
aaa I ONU HAM 
2. (ППТ 
22 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
23 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
n ШШШ! 
25 MUNIN ITT 
26 MINTO A 
2? IIII!IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
28 III! 
23 |! 
вә [iIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
81 DANIAE LU 
82 (ППТ 


ETIMER.BCR (FROM РАСЕ 32) 


128 


1 ШШШ ШЇЇ 
2 IlIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
НІЛ ЦИП 
4 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
5 | ПИТТ ШІ 
в AUAU A NAOI ТИИТ 
? {ЇЙЇ ЇЇ ШЇЇ ШИП ШЇЇ 
в QNIN ШЇ 
АИ ОВАА ДАДА 
19 |! ИШИП! 
11 |lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
12 |ПППИИПТИИПИПИИШШИЛІИШІШ Т/І 
із {ШШШ (ШЇЇ 
14 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
15 MUNIN MON O 
D T N ЇЇ ШШШ 
17 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ів lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
19 N A AUAM 
22 T ALANI 
21 | ЇЇ ЇЇ ЇЇ ЇЇ ЇЇ 
22. MINIMA N E A 
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23 ||! (ШШШ ПИШ! 
24 |ІІІ 
25 (|| (ШШШ ШЇЇ 
26 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
27 О ПА А M 
28 (ППТ 
29 QNIN M 


зе MANONOOD UA - 


зі ПІШІП 
32 | ШШШ ШШШ ЇЇ 
33 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
34 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
35 |IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
36 [ШШШ ЇЇ 
37 | ШПППИИИИИПИТШІГЛЕ 
38 | ИИН 
зэ | ДА А MM 
40 | ПП ШШШ! 
2. (ИТ ЇЇ 
22 (ПП 
аз lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIII 
44 | ППТ 
45 (ПИТТ 
6 | ПП AUAM 
АД 
ав [ШШШ ШШШ! 
аэ ЇЇ 
5@ (ШШШ 
51 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
52 |ШТИИИПИТТИІІ 
53 | ПИТТ 
54 |ІІІ ИТИИ 
55 [IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
56 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
5? ПАДОВА А А M 
58 (| ППТ 
59 MMMM MA ШЇ ШЇЇЇЇШЇЇ(Ш\\\Ї 
69 | ШШШ ИШ ЇЇ 
61 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
82 |Т 
өз MANNA UAM 
ва MINIM MONONA OO ИИТИИ 
65 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIÑ 
66 |! ШШШ 
А АИ (ШИШИШИ 
68 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
69 | ШШШ ШШШ 
го ИШАО 





21 I!lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIN 
E A a E D DEA I 
КА | n N АТАШЕ 
Aa A n I O I EON A ЇЇ 
25 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
26 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
2? MAO ШШШ ШЇЇ ЇЇ 
28. | ЇЇ ЇЇ 
29 | ШПИИИИТИИПШИПШИІЕ 
80 | ОДА АИ 
81 MMO ANA UOD OAO D OO l 
82 | 
У АД АДА А АИ 
84 | ЇЇ ШШШ 
У ДАДА О АДА 
вв |! 
в? | ШШШ ШЇЇ ЇЇ 
88 MIAMI ПШ 
89 [lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
за lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIII 
91 (ШИШИШИ 
ea i L NTN D L I E AEA 
эз (ШШШ ШЇЇ 
94. (ШШШ ЇЇ 
95 llIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
эв (ШТИ 
э? (ППТ 
эв (ППТ 
93 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIII 
тео, |} ЇШЇП 
101 {ШЇЇ 
102 О О ПОД ИИТИИ 
тез MUNIN NUNC ТИИ 
104 ЇШЇП!!! 
105 | ШШШ ШЇЇ 
106 (ШШШ ML a DI 
тег lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
108 | ИШИП 
109 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
110 I ITAI D O A t A N 
зга. О ДО АЊА АЦА 
112 | ПИТТ ТИЕ 
113 | ИО 


114 О ДАДА ANNUM 
115 | ПИТТ 
116 ЇШЇП! 
112 [ЇЇ ШШШ ШШШ 
118 (ШШШ A ИИИ 
119 ОООО ОООО 
120 MMOL MAO EO N N 
121 ЇЇ UN O OUN TR ЇЇ 
122 | A AURA APA 
123 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIITIIIIIIIIIIIN 
124 ANONN ANAVO DO I OO 
125 |! 
126 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
122 |ПППИПИИИИИТИИТШИИ 
128 | (ШШШ 
129 | ШТИ 
130 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ізі | ШЇЇ ЇЇ ЇЇ ЇЇ! 
132 | ППТ 
133 JAUNE M 
134 | ППТ 
135 | АДА ОИ 
136 | ППТ 
132 || ЇЇ ЇЇ ЇЇ ЇЇ ШЇЇ ЇЇ ЇЇ ЇЇ 
138 ДОДАТА О АДА 
139 || ППТ 
142 | | ОДА А АД ДО 
141 [NATIONAL 
142 [|IIIIIIIIIIIIIIIIINIIIIIIIIIIIIIIIIIIIIIINIIIIII 
EE N AIT ШИШ 
144 ППТ 
145 ШИТІ 
146 | О ОДО А А АД 
142 ПИТТ 
148 [|IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
149 | ЇЇ 
15@ [MANNA AM 
151 ЇЇ ЇЇ ШЇЇ ЇЇ ЇЇ 
152 lIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
153 | ШИПИН 
154 |! 
ИУ | ОДО О АШ АИ 
156 |ТІЛ 








ІШІ) ІШІ ІШІ ШШ ҮШІ ҮШІН 
Rbort Skip Line Stop & Save Resume Yes No 


May 1986 PCM 129 











ІШ The Rackseller 
ALABAMA 


























IOWA Mount Orab Mount Orab Radio Shack 
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Top-of-the-line: Open Access 
NOW ONLY $395* 













OPEN ACCESS 
Comparison Chart 
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Open Access has sold almost 50,000 copies overseas, and many more in 
the U.S. thanks to Radio Shack? With one of the most powerful 
Relational Databases around, and just about all the additional features 
you could want, it's no wonder. Just the Goal Seeking feature 
in the Spreadsheet alone should make Open Access 
your customer's #1 choice. 

(We're even written in Il languages with exact file transfer.) 























Word Processing a Time Management 





Available through your exclusive Express Order Software System 
90-0114 Tandy2000 • 90-0247 Tandy1200 • 90-0437 Tandy1000 


The product's exceptional. The price extraordinary. Сап you really afford to compromise any longer? 


у 
< 


pm 


ан SOFTWARE PRODUCTS INTERNATIONAL 


10240 Sorrento Valley Road * San Diego, CA 92121 


Open Access and $ are registered trademarks of Software Products International, Inc; Lotus 1-2-3 and Symphony are registered trademarks of Lotus Development Corp.; 
Framework is a trademark of Ashton-Tate; Smart System is a registered trademark of Innovative Software; Tandy 1000/1200/2000 are trademarks of Radio Shack, a division of Tandy Corp. 


АН оп one ROM. Truly the finest four programs 
available for the Model 100 — guaranteed. 

Mu it for 30 days. | If you aren’t blown away by the 

| excellence return it for a full refund. | 


The four best programs for the Model | 


100 all on one ROM. 32K of power with- 
out. using any КАМ for program. stor- 


"| age: This is һе PCSG Snap-In. ROM. 
that just presses- easily into. the. little” 
ROM socket in the compartment'on the ` 


back. You access the four right from the 
main menu like built-ins, 
Write ROM — the’ definitive. word 


|| processor for the Model 100, Function’ 


key formatting or dot commands, 
Search and replace, Library feature — 
inserts words, phrases orwhole docu- 
ments into text from justia code: MAP 


lets you see а picture of your document. . 


"| In. all there-are 60' features and fünc- 
| tions. No one can claim faster operation. 


|| FORM lets you create interactive forms 


with on-screen. prompts that you can 
answer from the keyboard: Nothing else 


for Фе Model 100 compares with the 


features of Write ROM. Exactly, the 
same as the Write ROM sold as a single 


program. Infoworld: says it “makes the ` 
2 Sur- 


‚Моде! 100 а viable writing ‘unit у : 


passéd our highest expectations for ' 


quality and clarity." 


Lucid Spreadsheet: This is the one : 


PICO magazine’ says "blows: Multiplan 


right. out of the socket" and Infoworld ` 
performance: tated ‘as “excellent” and. 
said “makes, (һе Model 100 compute." 


Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 


in your Model 100 that would consume ` 
1140-150К-оп a desktop: Program gener- 


ating capability ‘with по programming 


‘knowledge required. Variable column 
‘widths. Includes find and sort with fune- 
tion key control: It’s, fast, recalculates ||| 


like lightning. No feature-has been taken 


from the original, only new ones added. ` 


Database: This is. а relational data 
base like no other. You: can до évery- 
thing from mailing lists to invoices. Мо 


complicated pseudo-coding, you create ` 


input screens as simply as typing into 


. TEXT. You are not limited by size; you ` 


can have as large an input screen as you 


wish. Prints out reports or forms, get- - 


ting information from as many files as 


(2141 351-0564 


you like. Compléte math between fields, 


Total, interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does опа PC but a whole lot better. 
Includes a Sort for your headlines. Lets 
you have headlines of up to 240 charac- 
ters. Has cloning, hoisting and sideways | 
scroll. up to 250 characters, Like Lucid, 
this one sets а new standard for outlin- 
ers, This is the way to plan and organize 
your projects. . + 

Present Lucid and Write ROM 3 
Owners can upgrade for 8150. If you | 
have both it's $125. I 


As usual PCSG sells the Super КОМ | ` 


on à thirty. day. guarantee. If for апу 
reason уой are not satisfied, simply | 


‘return it for a full refund. ` 


: We. are excited about: this product. 


Super: ROM. gives the Model 100 the | 
true power ofa desktop. Мо other'multi- | ` 
. program ROM has software that com- | 


pares. But don't take our word for it. We 


| invite you to make that comparison 


yourself. .Priced-at $199.95 on Snap-In 
ROM, қ 


- Got stuck with өжет elses multi -ROM? 
€ Wen upgrade Y See, 


11035 Наггу Hines Blvd., #206, Dallas, TX 15229. 
MG, Visa, American Express, Check, or C, OD. 





